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Scrivetevi 
le vostre 
avventure! 

di Walter Pistarini 

dventure» c il no¬ 
me di un gioco (o 
di un tipo di gioco) dove vi 
trovate ad esplorare una fitta 
rete di stanze, grotte, labirin¬ 
ti, colline o altro, in cerca di 
tesori senza prezzo. Qualche 
nome: Advcnture, Dungeon 


& Dragons, Hobbit, Mad 
Martha. 

Il primo gioco di questo tipo 
comparve negli anni ’70 sui 
grossi calcolatori. Le sue ori¬ 
gini non sono pienamente 
accertate, ma i più informati 
tendono a darne la paternità 
a Willie Crowther, dell’Uni- 
versità di Stanford, che scris¬ 
se il programma in Fortran. 
In seguito questa versione 
originale è stata riveduta c 
modificata da Don Woods. 


Fino a quel momento, e per 
lungo tempo, esplorare i 
meandri di questo gioco ri¬ 
chiedeva l'accesso ai grandi 
calcolatori, visto che occor¬ 
reva una disponibilità di al¬ 
meno 200.000 bytes di me¬ 
moria. Arrivò un bel giorno, 
eravamo nel 1978, in cui un 
tipo destinato a diventare fa¬ 
moso si mise in testa di 
riscrivere il gioco su un mi¬ 
nicomputer c più esattamen¬ 
te su un TRS-80 con 16K di 
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Figura 2 
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memoria. Il resto è storia. 
Scott Adams (questo era il 
suo nome) divenne il famo¬ 
so (e ricco) autore di nume¬ 
rosi giochi di questo tipo, e 
fu seguito da frotte di imita¬ 
tori più o meno bravi. 

Vi proponiamo un listato- 
esempio per il Commodore 
64. 


Come si gioca 


Per giocare dovete dare 
istruzioni al computer sul da 
farsi, normalmente usando 
frasi di una o due parole, in 
inglese. I ’n comando tipico 
può essere «Ciò North», che 
dice al computer di andare a 
nord, e via di questo passo. 

Mano a mano che si trova¬ 
no oggetti si valuta se è il ca¬ 
so di prenderli o meno (ogni 
cosa, anche la più insignifi¬ 
cante. ha il suo peso), consi¬ 
derando che solitamente 
non ci si può caricare più di 
un tanto. Il gioco è partico¬ 
larmente interessante perché 
ci sono sempre da scoprire 
cose nuove, e i suggerimenti 
o indizi sul cosa fare sono 
disseminati ovunque. Una 
cosa è però sapere che questi 
suggerimenti esistono, altra è 
estrarli dalle parole che il 
computer vi dà, capire poi 
cosa vogliono dire è ancora 
un’altra cosa. Un altro moti¬ 
vo di successo è dovuto alle 
risposte che un gioco ben 
congegnato può fornire: si 
ha spesso l’impressione di 
parlare con una persona, e 
non con una stupida mac¬ 
china senza cervello. 
Veniamo ora alle note do¬ 
lenti. Esistono numerosissi¬ 
mi giochi di questo genere, 
per tutti i tipi di Home e 
Personal Computer, ma so¬ 
no per la maggior parte in 
inglese. Esiste anche qualche 
traduzione, ma niente, per 
quanto mi risulti al momen¬ 
to. tradotta in «italiano». 
Questo articolo cercherà di 
spiegare tutti i trucchi (o al¬ 
meno i più importanti) che 
devono essere usati per scri¬ 
vere questo tipo di gioco. A 
corredo dell'articolo, come 
abbiamo già precisato, è pre¬ 
sente un listato per C64 
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Listato 


READY. 


1 PRINT i. 

2 PRINT SUI SO SlRIdS b. E DEU1 5C0PR1R*- 

IL SEGRETO CEulA PIRAMIDE PER 

3 PRINT RIUSCIRE A SCAPPARE D*-.A BARRIE 

R<* DIFEN5IUA OEi Pl^.TA 

4 PRINI : ORINI COMANDI UTILI: N.E.S.O F*R 
LE 0IRE210NI C PC*? PUcIRE c3 SCHERMO 

5 PRINT 6 RIPETERE '-A DESCR1Z10 

Ixf I PER SOPERE COSA HAI 

0 e RIN' F PER TERMINARE IL GIRO :Pft 

INT 

? REn issisi INj2IAuIZZA21CNE «««»«« 
b pinoseie.4 j;p$- 0000*.0ieieiiimn :oi 
nrt©j.octei.otri®3.Ditte):t s a 

10 D: M -NTi(2).NLi 2].rute 22.2 J-OL = 18:S-2: M 
X=3:NL=22 

12 FQRX«1TOl8:READDi'X ): NEXTX: FCRX=0TO?2 
: FORY =0*C1 : REAOlUitX .Y J 

13 HEX r Y.NsXTX 

15 FORX = tTO:6:P0RY*lTO4:RCAraSrx.v J:hEXT 
YJNEXTX 

1 ? FORX^IOIH REAOO*CX):sf<Tx 
56 FORX=l T Ol8;RCOOOCX ):NExTX 

26 REH iindniiiitimi.iiitsiisi.ii 

22 REM ; FT T'JRA !NP_1 •««>•»»«• 

29 REM issi F TEST PER SITUAZIONI •««» 

29 REM iimuiiiunimiintssism* 

30 G0SJB4? 

32 INPUT*COMANDO :Ct:P*iNT:GOSUS4900:!F 
SR = t THEN SR-C-l-OTO 1100 

33 IF SR=2THENSR-0- GOTO 3P 

34 !F r TMEN#*R!NT 'USI PAROLE C"E *CN CQNOS 

rum ;&oro?2 

35 GOTO300 

36 !FS'9AN3FC4 1-0THCNPRINT Z E' UNA PJCC 
OLA FESSURA NELLA FARCE 

29 JF$=4/W0FCn -lTHENPRlNT IL DRAGO DEC 
IDE CHE NON GLI PIACI F TI MANGIA :GOTQ 

40 IF5-4ANDP'! 1 * 0*HENPRIN’ IL DRAGO STA 

BLOCCANDO UNA USCITA A. EST : «P : - -i 

41 IFS<>4ANDFf t js-1THtN F Cl ) »0 

42 IFS=4A^n 1 )‘ST^*.PRIN- IL DRAGO e n 
ORIO' 

«3 IFSO6ANDf 1 *2)=0ThCnpr:nT C E QUAlCOS 
A CHG LUCCICA SUi.uA C!aa DEL- AlSERO . 

44 1FS-16ANDFC2)MTH€nfr:i4T l'A-BERD 6 • 
ADAGIATO SUL PAUIMENTD. 

45 IF t S = 1 2AN0 S 13 i = l )ORS = 14TM£N*>R 1 NT LA P 
ORTA £' SFONDATA. 

46 RETURN 

47 K •-!: !FLrF T v:OiCS).l )- » tmENPRINTMJO 
t(DifS).2?::GDr057 

48 REM ** STAMPA DESCRIVI 1 *•". STANZA **s 

49 REM ** E OGGETTI minumui 

50 PR INT SE! IN • :QiCS): 

52 FORZ -OTOOL:IFKTWFNirOCZ I-STHENPRIMTsP 
RINT'COSE INTERESSANTI 0*. I : :<=8 
54 GOTO20 

56 TP*«0*(Z): <FRlG*Ti ’A*.i J<> r THfT«E T 
JRN 

50 FQR-J-urNC'Pi 5 1 'C. S* -. • ■ I : ! • M! Lif TPi .U 
, 1 ' • * T HE»-«TPi - J> *i' f- . ): RETURN 
<50 N£X ’ u 
62 RffuRN 

73 1P0C23OSTHEN74 

72 G05UB5C;pr:n’ UN : i 

74 TCXT Zi PR ! h * 

90 K=-i: FCFi? =0 TO A. J*. '••rsjFDSCS .2 K> 
aTH£NF*REN!:PR!NT USCITE UISIClI A: ;K=» 
82 IFDS(S.Z3O0THEnprIN Njì 2.:); : 

04 SF'XTZ: PRTST : **R INT : *1 

.37 K 1 Itmnuu«.»»....u.mm«« 

2*0 RTH I * » « Gt •««**** 

299 RE" m«iu...».«.«mi.ms..u«n 

300 X V 1 5 ■ . 

30*5 X-INTtX/Z) 

318 DNX..CTC400.650. "30 ^?0.350.366.9 

50.1003.1056.1130 

326 PRINT NON KJ C'* * r COSA UUOI FARE»! 

:G0TO32 

k:« ... 

... . ..... 

299 REM 

400 IFNUCIXi '-.ti* A*, t-c UNA □ 

I REZIOH* . :G0T032 

42» jrosts.NUM 3)«er* f •: re 9000 

425 if oscs-.nui m-'irHrseeee 

4 30 SOStS.wn -LV5 

6c REM «*»».«*»*•• •*****•*• ■********** 

fiati S.''n «s*<«* m.m.isun 

649 Rfn m»« ». .......tlissi 

050 IFOCNUU)’ -iTHf.br.L-:??: e 
560 IFOCNUt 1 )K>5>v ; 

665 IFNMt/tTH'NbOTGiaSP 

L.’p IKMI04' -"i .sud ... p •• • ! IV)0 

6^- 0(NU(1>D- l: tU’!U»: :uj'D3040 

l=if F rM ..SIS. ....... *•*«»» 

«»»*** ............ 

/?d IfOlNUCl 3)0-1 TKNG3T .*• 

710 0CNVC1 )T-S; lU-JU-l: !-N.tl )*1 jtMENFtS 

1-0 

715 GOT03040 

747 fcf* ........................... .... 

R'.r .un. • : A/SEG*-* *«.nn.m 
749 REA ...«..«.umnmum.mi.i 

7A6 lFNUfl )< >B0RFC2 * • 1THEN3636 
760 IFO£7 )Z>-lOROf > 1 1O-1TNFN3830 
765 irSOl6THEH30n 

• NON I.AUCRA 

SENZA CORRENTE tf! » :"7K.:-7 

- - r : .mce : 

N USTA CR1NC • -GOTOSeOO 

7fc0 F<2)=1 ;RRtN? ..'AcBERC CADE SU. TlO E 

untino. UN ASCIA CADE DALu'ALBERO 

703 Oti8)-S:GO*a.M}4!a 

797 REM ..............mmumniiM 

790 REM ««**»» OISTRUGGfABBATTI «*»«« 

793 if- ....................... ........ 

800 IFNUt 13OJ0 r HEN3636 

80N IFO' IP )O-t0RFt3 ) = 1 THFN3036 

816 1F5OUTKFN301S 

BIS PWtNl .mi f-OP CRUtCn FSSS'UnPMIt 
lu PORTONE L STATO SFOrCATOllll 
870 FC33 = t!OSfS.2)sl4:GOTO3040 

«47 RlH III......... ................. Il 

848 REM «»»«•« r-T risec i ,A im«M 
349 ST ............................... 


Avventura 

858 IFNUC 1 JO17THCN303B 
855 JFOC17JO- 1ThEN3635 
360 F13 3 * t:GO T O3040 

897 REA ............................... 

890 ftp* ..... ',Nf f • 1 

399 Pf 

9H8 IFNU? 1 JOllANDNUtl )<>7T‘VN3n30 
905 [FCCNUf 1 1 )O~lT‘iFN?03tV 
9:0 l FOT 11 )< >-1 ORO ( ? ) < > - f HE N3030 
915 f(61*i:GOTO3040 

947 Rr*l miuminuiiummmmi 

940 Rfi si..* INSERÌ---I/Infila II.»».» 
943 Rfn «uiimmn..H«iiici.ui.i.i 

956 1FNUC 1 JOl4 r hFN3030 

955 IFOthVfmO 1THCN3835 

956 1FS08THENPRINT-N3N UED3 DOUE POTERL 
0 INSERIREI! :50TO32 

. 9C6 OCNUCm=0 

970 PRIMOLA oARETf 01 <>l SPOSTAfI 


I ORA C E .JN PAS£.9GGIQI!1 

975 FC4)-t:O5(S.3J-!0.GOTO3040 
997 Pf.N nuii.«mmtm..n...nn» 
930 RITI i«««« AFFlLA/ARftOTA s«».««.«i 

999 REM iKiuiiuuuitiminmiini 


i000 SFNUtl }<>l5TflEN3838 

1805 IFOCNUtl))<>-lThEN3635 

1006 IF 0( 9 30- 1 THF.NPRIn! NON HAI h*J^i.A 

CON CUI AFFJ_.7RI.JI- L-uIC.V 

10-.0 PRINT *IL COL^CLLO DA BL«RC OIUENTA 

un PunNA.t a^fiuAt issino il -ous) 0 
.023 C . 10: . 043 

1047 U t 

1048 RCM *«»«• UCCIDI, " COLTELLA rimi. 
.049 Rtl nuiiiiiun.iiiiii.iiiinmj 
10'-^ IFNVt! lOeORCr 16)0-1 IHEN3030 

‘.855 lFS< >4 T(-< N2015 

.868 iFFf n-irhnv'RiNT la poutra cjsa . 
GIÀ HORTA. .G0TO32 

1070 FtlJsl : PRINT SQUCLC*. IL PUGNALE »V 
FONOA FINO 

1300 PRINT IMPUGNAfv>.'9 W CORPO OfcL 

DRAGO. f NCRTQ. POUCRA COSA 
«890 DSC S.4 ! r15.GOTO3043 
1397 PEn iiiiumf.Mimiciuiinmu 
1898 ken ;MjfN’P4?:u «*««*« 

i033 REM ««mmm..i..»..ui.ni.... 
1100 PRINT 1 -PRINT CON T f HAI: 

1110 NC‘0:"ORZ ITC10: .«‘OCZ f-lT'irNNC.NC» 

; jGosuene.^RiN-r un ; tpi 

UlS NFXT2 

1120 IFUC-0^HFN^KlN^ NIENTE. 

* 125 PRINT:G0T032 
7997 REM 

2990 REM «im.» MESSAGGI «it.iii 

2 939 RFM ............................... 

3006 PR INI NCN PUOI ANDARE IN QUESTA DIR 

FZIONi I * :G3T032 

J00M PRINT vATTO ! :&O T O30 

3018 3 RINT LO mAI GIÀ II GOT032 

PfMN* DOVE i.O UEDI’-MI :60T332 
j32Ù PRIN T V ; TROPPO CARICO* II» :&3T03Z 
3330 i’RlN 7 NON P-J01 . IO! :i r A I ! ! : 1.01032 
3335 PRIN T NON CZ L'HAI. STUPIDO* 11 -'GOT 
032 

3840 PRINT FATTO! -G0TO32 

4097 KM ................. .............. 

4895 PCM »«•»» ANC- MP'.'T iti...» 

«899 REM ............................... 

4900 !f 0,rCt :>trhrN5003 

44.0 1F C i N ’r-sci- U9! NGRD -GDTD30C0 

4920 IFCi F .AI EST -63TO5680 

4930 ire»- s tfcncì uai sud 00*05000 

4940 IFCi D %<NCi UAI ÙUTST &Oro*5O80 
«3D0 IFCi I T !-CN SR -1 : RETURN 
«960 IF Li : ■N.r'.PRiNT L . SR = 2 - Rr r uPN 

4978 IFCi . THfNPR[ST 1 : C P-2:RETURN 

«99? IFCi- « ^HTNfiOte 

‘.000 K-0MT4C0T* ' NTi; 1 ). 

600*> FORXslTCLENi ;♦ :<% - 1 _ V i . » . Y . M - ' I . 

i-- ThFNK -1 : GC'i I U‘»615 

5010 NTiftO 11'-fifa'if fXi .LN > 

5015 NEXTX 

5320 rORXr0TCl;NU(X J-3: IFMi(X)- **-^N3C 
50 

5025 -*ORY-8rONL:Ki i *i» Y ,X ): IFuCF r iCKi , . 
V I THENKi=MlDitKi,2 I 
5030 IFX-IANDY<5TM Sv»=lE ! Titxi.i Sì 
5035 IFNTitX )-KiTHfNNU(X 3'Y: GOTQ5045 
5043 NE.X? Y: GOT05053 

5045 tFufcrvi NUifNJl X 1.4 ).} ) s r *CNNUt* 
lNUCXfl :GCTO5045 

*'«50 NEXTX: K-'NUt8 i-bOKNUtU ' =6 lANDNL-; I • 
1THENF =0: RETURN 

5050 F.NUtfl <lO«NUtl )<1:RL*URN 
5997 REM Iminu.iiuimniuumiu 
5990 RtM ■««»* STANZA -• s issisi 

5999 RfM iiiKiiii.iiiit.ua.iiiiiMiii 

6030 PPIn i PRINT RAGGI LASER ESCONO 0 

A_uE ARMI FISSATE Al. A fRAOl 

t-li-.H IFOC 12 IO • I r.iENC050 

6320 TOC i 1 10-1 r MENC000 

C030 PRINT fN-MHMUJ 1 RAGGI 50K) RfSPlN’ 

1 HALLO SPECCHIO E OlL RI Fi.t T !0*E II 1 
6035 PftlN’ S U RIUSCITO A SCAPPARE UUOI 
CONORA*L». AZIONI ! * ! : GCT09d10 
6050 PRINT II RAGGIO PROUENIfNTC £V» SIN! 
STHA E ’ RESPINTO 1A.C SPECCHIO. 

©855 PRINT DUEllO 01 OF.STRa NOlll Gora» 
000 

60S0 PRINT I. RAGGIO PRUGNI ENTE DA DEST 
RA E RESPINTO C>AL Rl p wETTOFE 

6U8-. PRINT OUEwuQ OS JlM-tRA NO III : 50 T 
OH000 

7997 Rfl ......................... ...... 

7998 REM «i»«. - INE GlGCO siiiii. 

-’ i REA I»mmm..<i.iuiiiiif(in< 

3003 PftJN r SEI MORTOI 

3010 PRINT JN ALTRO 'GIRO 1 ’ INPUTYi:IF 
t.FF r iC Yi , 1 )- S Tl-TNft'.JN 
8870 END 

9007 Rii niimiminmimiiiii..... 

9009 REM ....» CESCRIZICMI STANZE «»««** 
9339 REM issa i.imtii.tisiitimiiimi 

9B18 OA'A JNA STRADA. CtC PE22I METALLIC 
I PUNTANO A OJE5T 

9020 DATA JNA CURJA 01 UNA LARGA STRADA 
9033 DOTA JNf* ojCCQuA f SCURA BARACCA 
9043 DATA UNA PICCOLA F SCURA BARACCA' 
9053 DAtA jNA STRADA CH£ UA DA NORD A SU 
D. C! SONO BARACCHE AI LATI 
9060 DATA UNA STRAFA CHf UM A NORD. C'E' 
UNA PIRAMIDE A SJD 
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adattabile facilmente a qua¬ 
lunque computer. 

Se vi cimenterete in questo 
lavoro, scrivendo la «vostra» 
avventura, vi accorgerete 
che a fine lavoro avrete in¬ 
crementato in maniera con¬ 
siderevole la vostra co¬ 
noscenza del Basic. E questo 
per una ragione molto sem¬ 
plice: nei programmi di tipo 
«Adventure» si fa un largo 
uso di tutte le possibilità del 
Basic: manipolazione delle 
stringhe alfanumeriche e del¬ 
le variabili in maniera molto 
spinta, generazione dei nu¬ 
meri casuali, logica degli If... 
THEN, LOOP, presentazio¬ 
ne dello schermo, concate¬ 
namenti e, se il vostro com¬ 
puter ha una seppur limitata 
capacità di grafica, colore e 
suoni, vi potete spingere alla 
ottimizzazione di semplici 
effetti sonori e/o grafici. Il 
tutto si applica ovviamente 
anche alla programmazione 
in linguaggio macchina. 

Pianificazione dell’av¬ 
ventura 

Prima di cominciare a scri¬ 
vere il programma dovete ri¬ 
spondere alle seguenti do¬ 
mande: 

1) Dove si svolge l’Avventu¬ 
ra? 

2) Che tipo di mondo si ve¬ 
drà (reale, fantastico, stori¬ 
co...)? 

3) Qual è lo scopo principale 
dell’avventura? 

4 ) Che tipo di ostacoli do¬ 
vranno essere superati e co¬ 
me? 

Date queste risposte potete 
cominciare a fare un disegno 
della rete di «stanze» (d’ora 
in avanti userò questo termi¬ 
ne per indicare qualunque 
località, sia essa collina, 
ruscello, antro o altro) della 
vostra avventura. Il disegno 
dovrebbe risultare simile a 
quello mostrato (solo in pic¬ 
cola parte) in figura 1. 

Così, per trovare il tesoro bi¬ 
sogna aprire la porta d’oro; 
per aprire la porta d’oro bi¬ 
sogna avere lo scettro e pas¬ 
sare sotto il naso del drago 
protetti dal mantello dell’in- 
visibilità, mentre per trovare 
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lo scettro bisogna scavare 
nella sabbia. Una volta che 
avete risposto alle domande 
e disegnato la mappa della 
vostra avventura siete pronti 
a cominciare a scrivere il vo¬ 
stro programma. 


Il programma 

Il programma per gestire 
questo tipo di gioco è diviso 
in due parti: il programma 
vero e proprio che gestisce la 
logica del tutto e il Data Ba¬ 
se, e cioè l’insieme dei dati 
su cui lavorerà il program¬ 
ma. La parte più importante 
è appunto il Data Base, in 
quanto, se il gioco è ben 
congegnato, cambiando il 
Data Base si cambierà av¬ 
ventura. Non è facile ottene¬ 
re questo risultato ma è pos¬ 
sibile ed è il sistema usato da 
molti programmatori di 
questo tipo di gioco. Vedia¬ 
mo ora separatamente le 
due parti. 


Il data base 

Non preoccupatevi del ter¬ 
mine tecnico, in pratica do¬ 
vrete scrivere una lista di 
lunghezza variabile di istru¬ 
zioni Data, che conterranno 
descrizioni, numeri e parole. 

I modi in cui potete studiare 
questo insieme di Data sono 
molti, e qui ne vedremo al¬ 
cuni, ma l'importante è ca¬ 
pire il modo in cui questi da¬ 
ti vengono usati; fatto que¬ 
sto potrete scrivere il tutto a 
modo vostro. 

II Data Base di ogni avven¬ 
tura, in qualunque modo sia 
gestito, deve comprendere 
almeno quattro tabelle (di 
cui qualcuna «doppia», con 
una parte numerica e una 
alfanumerica); il Vocabola¬ 
rio, gli Oggetti, le Stanze e i 
Messaggi. Se si va un po' 
più nel complesso si può 
avere anche la tabella dei co¬ 
mandi. Vediamo tutte que¬ 
ste tabelle nel dettaglio. 


Vocabolario 


Questa tabella (o matrice se 
preferite) è divisa in due par¬ 
ti: verbi e nomi. Contiene 
tutte le parole che l’Avven¬ 


tura può gestire (verbi, og¬ 
getti. azioni etc.). I sinonimi 
(dei verbi) sono gestiti.in di¬ 
versi modi, il più diffuso è 
quello di far precedere al si¬ 
nonimo un asterisco (*). 
Esempio: 

Vai, ‘cammina, ‘corri, 
mangia, ‘assaggia. 
Ovviamente in questo esem¬ 
pio ha assunto che i vari ver¬ 
bi di movimento siano gesti¬ 
ti dal programma tutti alla 
stessa maniera. 

Quando girerà il program¬ 
ma. ci sarà una subroutine 
che confronterà le due (o 
una) parole dell’INPUT con 
questa tabella, e darà come 
risultato uno o due numeri, 
identificanti la posizione del 
verbo e/o del nome nella 
matrice. Dopodiché la mag¬ 
gior parte del programma 
giocherà su questi due nu¬ 
meri. Ogni verbo avrà una 
routine di gestione appro¬ 
priata, che sarà chiamata 
con un ON x GOTO, (o. sui 
personal con la gestione del 
GOTO a variabili, con un 
GOTO x). La routine così 
chiamata farà per prima co¬ 
sa un controllo sulla «sensa¬ 
tezza» dell’azione (es: MAN¬ 
GIA SEDIA produrrà un bel 
«Non essere ridicolo» o cose 
del genere); poi si preoccupe¬ 
rà della gestione del verbo 
col nome eventualmente as¬ 
sociato. 


Oggetti 

Questa tabella contiene tutte 
le informazioni necessarie 
per gestire i vari oggetti che 
saranno trovati dal giocato¬ 
re. È la tabella più modifi¬ 
cata nel corso del gioco, per¬ 
chè tutte le volte che il gio¬ 
catore prenderà o poserà un 
oggetto, qualcosa viene cam¬ 
biato in questa matrice. 
Questa tabella è divisa in 
due parti: numero stanza e 
descrizione. La descrizione 
contiene appunto la descri¬ 
zione dell’oggetto. Il numero 
stanza è invece una tabella 
numerica contenente il nu¬ 
mero della stanza in cui si 
trova l'oggetto in questo mo¬ 
mento. Se il valore della 
stanza è zero, vuol dire che 
l'oggetto non è da nessuna 


parte (per ora, potrebbe 
comparire in seguito a certe 
azioni del giocatore). Se il 
valore della stanza è meno 
uno (-1), vuol dire che l'og¬ 
getto è in mano al giocatore. 
Fin qui tutto semplice (spe¬ 
ro): quando si vorrà stampa¬ 
re la lista degli oggetti pre¬ 
senti in una stanza, basterà 
confrontare il numero della 
stanza in cui si trova il gio¬ 
catore con il numero conte¬ 
nuto nella parte numerica 
della tabella degli oggetti. Se 
il numero è lo stesso, basterà 
stampare la descrizione del¬ 
l’oggetto presa dalla corri¬ 
spettiva entrata delle descri¬ 
zioni della tabella oggetti. 
Un esempio delle due parti 
della tabella oggetti potrebbe 
essere il seguente: 
Descrizioni: Ascia, Penna, 
Bottiglia vuota. Bottiglia pie¬ 
na 

Numero stanza: - 1, 2, 5, 0 
In questo esempio l’ascia è 
in mano al giocatore; nella 
stanza numero cinque c’è 
una bottiglia vuota, mentre 
la penna è nella stanza nu¬ 
mero due. La bottiglia di ac¬ 
qua piena non è da nessuna 
pane. Quando il giocatore 
avrà trovato dell’acqua con 
cui riempire la bottiglia, il 
numero di stanza sarà inver¬ 
tito tra bottiglia vuota e bot¬ 
tiglia piena. 

Ci sono altn due problemi 
da risolvere che riguardano 
gli oggetti: uno è la descrizio¬ 
ne stessa, che quando viene 
data dovrebbe essere lunga 
(es.: vecchia ascia arruggini¬ 
ta). ma quando il giocatore 
vuole fare qualcosa con l’og¬ 
getto. dev e essere breve (es.: 
prendi ascia, e non prendi 
vecchia ascia arrugginita). 
Vediamo due soluzioni pos¬ 
sibili al problema: una è 
quella di «spaccare» la 
descrizione in due parti. In 
questo caso si potranno 
riempire due elementi della 
matrice per ogni oggetto (es.: 
«ascia» e «arrugginita») e 
stamparli entrambi quando 
si dà la descrizione dell’og¬ 
getto. mentre si può «testa¬ 
re» solo il primo elemento 
quando si controlla l’IN- 
PUT del giocatore. L’altro 
sistema prevede che sia un 












elemento solo a contenere 
sia la descrizione «lunga» 
che quella breve, separate da 
uno slash («/»). In questo 
caso la tabella descrizioni 
avrà un solo elemento per 
ogni oggetto (es: «vecchia 
ascia arrugginita/ascia/»; lo 
slash finale serve a capire su¬ 
bito che abbiamo questo ti¬ 
po di descrizione. Questo si¬ 
stema l’ho usato nel listato 
(vedi linee 9390 - 9460 per 
la lista degli oggetti e linee 
56-74 per la stampa degli 
oggetti senza lo «/»). 

L’altro problema che riguar¬ 
da sempre gli oggetti è il 
controllo sul fatto se l’ogget¬ 
to si può veramente prende¬ 
re o posare (per esempio è 
meglio evitare che il giocato¬ 
re possa prendere un albero). 
Uno dei modi per fare ciò è 
quello di mettere in una va¬ 
riabile alfanumerica degli 
«0» se l’oggetto non si può 
prendere, e degli «1» se l’og¬ 
getto relativo si può prende¬ 
re (se abbiamo dieci oggetti 
ci sarà una serie di dieci ca¬ 
ratteri che saranno o zero o 
uno a seconda dei casi). Un 
altro modo è quello di met¬ 
tere nella tabella comandi 
(che vedremo più avanti) so¬ 
lo la gestione degli oggetti 
«prendibili», ma questo si¬ 
stema è un po' più comples¬ 
so. 


Stanze 


La matrice delle stanze con¬ 
tiene tutte le informazioni 
per ogni «stanza» in cui il 
giocatore può trovarsi. È an¬ 
che questa divisa in due ta¬ 
belle: Descrizione e Direzio¬ 
ni. La tabella delle descrizio¬ 
ni contiene la descrizione di 
ogni stanza, senza contenere, 
molto spesso, l’inizio della 
frase «Sei in», che sarà inve¬ 
ce stampato davanti ad ogni 
descrizione (questo, ovvia¬ 
mente, per risparmiare me¬ 
moria). Se poi si volesse, per 
qualche descrizione, evitare 
di stampare il «Sei in», si po¬ 
trebbe mettere un asterisco 
in fronte alla descrizione, 
che farà in modo, opportu¬ 
namente testato, di non 
stampare la parte di frase 
succitata. La lista delle 


descrizioni comincia alla li¬ 
nea 9010 e la stampa viene 
fatta alle linee 47-50, testan¬ 
do per l’asterisco. 

La tabella delle direzioni è 
numerica, e contiene una 
entrata per ogni possibile di¬ 
rezione (per ogni stanza). Le 
direzioni possono essere 
quattro, otto o dieci: nord, 
nord est, est. sud est, sud, 
sud ovest, ovest, su, giù. Nei 
listati di esempio sono state 
considerate solo le quattro 
direzioni fondamentali. Ogni 
entrata della tabella consiste 
nel numero della stanza in 
cui si troverà il giocatore 
muovendo in quella direzio¬ 
ne. Se c’è uno zero vuol dire 
che non c’è uscita in quella 
direzione. Nella figura due, 
se siamo nella stanza nume¬ 
ro 2 (la stanza del guardia¬ 
no) e ci muoviamo a nord, 
ci troveremo nella stanza 
della sabbia (stanza numero 
3), se invece volessimo anda¬ 
re a sud, ci troveremo nella 
stanza del mago, e così via. 
Nel listato a 9300 si trovano 
le direzioni. Da notare che 
questa tabella viene usata 
anche per stampare le uscite 
visibili, dopo la stampa della 
descrizione della stanza 
(80-84 da notare che la 
stampa delle direzioni viene 
fatta utilizzando la matrice 
del vocabolario). 


Messaggi 

Mettere tutti i messaggi (o 
almeno la gran parte) che 
possono essere mostrati al 
giocatore in una tabella, ha 
senso specialmente se si usa 
anche la tabella comandi 
(vedremo il perché). Co¬ 
munque nella vostra avven¬ 
tura ci dovranno essere per 
forza dei messaggi (tipo: 
«Non succede nulla», oppu¬ 
re «Non puoi!!!» e così via). 
Nelle avventure più semplici 
dovendo stampare un mes¬ 
saggio si fa un GOTO ad 
una linea di programma che 
stampa il messaggio e ritor¬ 
na dove deve (il più delle 
volte ad accettare un altro 
comando). Questo sistema è 
stato usato in entrambi i li¬ 
stati (vedere alla linea 3000). 
Per la gestione dei messaggi 


in matrice tenete presente, 
per ora, che dovrete avere 
una matrice alfabetica con¬ 
tenente tutti i messaggi, e 
che ovviamente ogni mes¬ 
saggio avrà un numero che 
lo identifica (il numero di 
elemento della matrice). 


Monitor 
in linguaggio 
macchina 
per VIC20 

di Eugenio Rapella 


Q uesto interessante pro¬ 
gramma. realizzato da 
Eugenio Rapella, è ben fatto 
e molto utile per la «gestio¬ 
ne» di programmi in lin¬ 
guaggio macchina, che stan¬ 
no prendendo sempre più 
piede, soprattutto per i 
VIC-20 che non hanno 
espansioni di memoria. Ca¬ 
ricato il programma Basic, 
se non si hanno espansioni 
di memoria, si ha qualcosa 
come 679 bytes disponibili 
al linguaggio macchina, che 
permettono, pur nella loro 
esiguità, di fare tante belle 
cosucce. L’autore si è prodi¬ 
gato molto (c lo vedrete fra 
poco) nello spiegare come si 
usa il suo programma con 
tutti i suoi innumerevoli co¬ 
mandi. Vediamo qualche 
piccola lacuna nei commen¬ 
ti al listato (i REMarks. per 
intenderci), che sono presen¬ 
ti, ma non abbondanti né 
molto dettagliati. 

L’idea non è nuova, ma lo 
sviluppo è molto originale, 
come pure i comandi che 
sono a disposizione dell’u¬ 
tente. Detto questo non ci 
resta che passare la parola al 
diretto interessato. 

La «gestione» (caricamento, 
esecuzione,...) di un pro¬ 
gramma in linguaggio mac¬ 
china (L.M.) per il 6502 at¬ 
traverso il VIC 20 è, se non 
si dispone dell’apposita car- 
tridge. piuttosto difficoltosa. 
Questo «Monitor L.M.», 
realizzato per un VIC 20 
versione standard, può essere 
un valido aiuto per chi si ac¬ 
cinge alle prime esperienze 
in questo senso. Effettuato il 
caricamento e l'esecuzione 


del programma Basic, viene 
presentato il «menù» e la 
«locazione di riferimento in 
memoria» (il cui valore è 
stampato in reverse) che, ini¬ 
zialmente, è la 7000 (d’ora 
in poi il termine «locazione 
di riferimento» verrà abbre¬ 
viata con LR). 

A questo punto il program¬ 
ma attende: 

1) l’inseri mento del codice 
esadecimale della prima 
istruzione del programma in 
L.M. che verrà caricata nella 
LR. 

oppure 

2) la pressione di uno dei ta¬ 
sti descritti nel «menù» con 
le relative conseguenze. 
L'inserimento di codici diffe¬ 
renti da quelli previsti pro¬ 
voca la stampa di un doppio 
punto interrogativo. Nel pri¬ 
mo caso (ad esempio digi¬ 
tando A9), il codice csadeci- 
male viene trasformato in 
decimale e caricato nella 
LR; sullo schermo appaio¬ 
no, sulla stessa riga, i seguen¬ 
ti quattro valori, come in fi¬ 
gura 1. 

Viene quindi stampata la 
successiva I.R in attesa della 
prossima istruzione. Prima 
di inserire i codici esadeci- 
mali del programma in 
L.M., è preferibile cancellare 
il contenuto della memoria 
ad esso riservato, tramite 
una delle opzioni disponibili 
(N=NEW LM). 

Vediamo in dettaglio le pos¬ 
sibilità offerte dal «menù» 
(caso 2): 

Pressione del tasto: 

T = DEC > ESA consente 
la conversione di un valore 
decimale in esadecimale. 

es. DEC = ? 78 
F<\A = 4 F 

H = ESA > DEC La LR 
non viene modificata. Con¬ 
sente la conversione da esa¬ 
decimale a decimale, 
es. ESA = ? 1F 
DEC = 31 

b = LIST PA La LR non 
viene modificata. La pressio¬ 
ne della barra spaziatrice vi¬ 
sualizza il contenuto della 
LR come da figura 1. La 
LR viene incrementata di 1. 
f = LOC. PRF, visualizza il 
contenuto di LR - 1 (come 
da figura 1) che diviene la 
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nuova LR. 

U = ULTIME visualizza il 
contenuto delle ultime loca¬ 
zioni di memoria utilizzate 
nel programma L.M., ovve¬ 
ro quelle il cui contenuto è 
diverso da zero. Il numero 
deH’ultima memoria utiliz¬ 
zata è indispensabile per la 
registrazione di un program¬ 
ma in L.M. su cassetta. 

R = RUN L.M. manda in 
esecuzione il programma 
L.M. Viene richiesto il valo¬ 
re decimale della locazione 
di «inizio esecuzione» in 
modo da consentire l’esecu¬ 
zione di segmenti del pro¬ 
gramma L.M. redatto o l’e¬ 
secuzione di un programma 
caricato in altra zona. Il va¬ 
lore iniziale normale è 7000. 
Terminata l’esecuzione del 
programma L.M., la pressio¬ 
ne di un tasto qualsiasi con¬ 
sente il rientro al Basic. 

L = LOAD LM consente il 
caricamento di un program¬ 
ma in L.M. da cassetta (op¬ 
portunamente registrato tra¬ 
mite l’opzione «S»). 

Viene richiesto il valore de¬ 
cimale dell’area di memoria 
a partire da cui il program¬ 
ma L.M. deve essere carica¬ 
to: il valore normale c 7000. 
A caricamento effettuato, 
viene stampato il nome del 
programma; la LR viene po¬ 
sta a 7000. 

S = SAVE LM consente la 
registrazione su cassetta di 
un programma in L.M. pre¬ 
sente in memoria dalla loca¬ 
zione 7000 fino all’ultima 
utilizzata (riscontrabile tra¬ 
mite l’opzione «U») il cui 
valore viene richiesto. Viene 
anche richiesto un nome di 
riferimento (TITOLO?) a 
cui viene automaticamente 
posto il suffisso «LM» in re¬ 
verse. 

L = LIST... consente di vi¬ 
sualizzare i codici macchina 
contenuti dalla locazione 
«x»; LOC IN. (DEC) (ovve¬ 
ro «numero della locazione 
iniziale espresso in decima¬ 
le») alla locazione «y»: LOC 
FIN(DEC) (ovvero «nume¬ 
ro della locazione finale 
espressa in decimale»). Deve 
essere 7000 < x < y < 
7679; un'errata impostazio¬ 
ne dei valori provoca un 
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Listato - Monitor L.M. 

1 P0KE39*88 = P0KE56,27 :CLR: P0KE36879, 11 ©•PRINT" R" : P*70©8 U=76~9 C=P DOTO100 

10 H*-"“ 

29 IFDTHENA»INT(D/16> : H*=MID*< "0123456789ABCDEP" • 1+D-A416, 1 ’*HF D=A G0T020 

30 RETURN 

32 0ETR* IFR*»""THEN32 

33 RETURN 

40 0-0: IFH*>**THENF0RI-lT0LEN<H*>'ft»flSC'-|1ID*' H*. 1,1.0-48 = D«D*le'+A+<A>9>*7 NEXT 

42 RETURN 

44 Fl-0 

46 IFRBSCINT<X1 >J-X1RNDX1>*PTHEN30 

48 PRINT"»»1'DAT0 NON VALIDO" Fl = l RETURN 

30 IFRB3< INT<X2> >»X2RNDX20UTHEN54 

32 PRINT“)#»2'DAT0 NON VALIDO" Fl=l RETURN 

54 IFXK-X2THENRETURN 

36 PRINT“WU'<2' !*" :F1=1 RETURN 

60 PRI NT " XTT«DEOESAI H*ESA>DEC " 

62 PRINT" -LIST PAI f=L0C. PRE" 

64 PRINT"U=ULTIME IR-RUN L.M" 

66 PRINT"L a L0AD LMIS-SAVE LM" 

68 PRINT"£=LIST. . . I/-DEL 
70 PRINT"I-INST... I N-HEU LM" 

72 PRINT"*»BASIC IM-MENU'" 

73 PRINT"*—INIZIO 18-CM DEC” 

74 PRINT - 

73 RETURN 

82 IFCD<480RCD>780RCD>3 7ANDCDC65THENPPINT”??" GOTO120 

84 RETURN 

90 R-PEEK<LC) D»R GOSUB10 A*=H* D=LC : GOSUB10 

93 IFA*«""THENA*»"00" 

94 PRINTR*;TRB(3);RSPC(5-LEN(STR*(R>)>LC;TAB(3>Hr 

96 RETURN 

100 PRINT-.T» MONITOR L.M. *" 

102 PRINT"* *" 

104 PRINT"* E.RRPELLA 83 *J0" GOSUB60 
120 PRINTTAB<9>"rC 
123 00SUB32 
130 V—ASCCR*) 

133 IFV-32THENLOC GOSUB90 C-C*l GOTO120 

137 IFV-94THENC-C-1 : LC=C GOSUB90 GOTO120 

140 IFV077THEN153 

130 OOSUB60 00T0120 

133 IFVO93THEN160 

137 C-7000 OOTO120 

160 IFVO84THEN190 

170 INPUT"DEC»" ;D 

180 G0SUB10 PRI NT"ESA=" Ht GOTO120 

190 IFV072THEN212 

200 INPIJT"ESA»";H* 

210 GOSUB40 PRINT"DEC»"D GOTO120 

212 IFVO64THEN220 

214 INPUT"C.M. IN DEC“;D 

216 POKECcD LC*C : GOSUB90 C»C+1 GOTO120 

220 IFVO42THEN240 

230 PRINT"URI ENTRO AL BASIC" END 

240 IFV073THEN253 

242 PRINT"SCANCELLO PRG. LM CONFERMI £S/NJ" 

243 00SUB32 : IFR$»"S"THEN230 
248 GOTO120 

230 F0RX-PT0U POKEX.0 NEXTRUN 
233 IFVO83TWEN320 
260 F0RH-UT0PSTEP-1 
270 IFPEEK ( H ) O0THEN290 
280 NEXT 

290 IFH<P*3THENH»P*3 

300 FORJ-H-3T0H+3:LC»J:GOSUB90 NEXT GOTO120 

320 IFVO82THEN390 

330 PRINT ".-ESECUZIONE PRG. L.M" 

340 PRINT"ASCRIVI LOC D'INIZIO" 

330 INPUT"MIN DEC £70003",E 

360 IFECPOREXITHENPRINT"?" GOTO340 

380 PRINT"D" ■SVSE 

§ 82 00SUB32 : END 
90 IFVO92THEN440 

« 00 INPUT "«LOC IN.(DECI"/X 
10 I NPUT"«L OC FIN(DEC)",V 
420 X1=X:X2=V’C0SUB44 IFF1THEN400 
430 FQRH=XT0V LC=H GOSUB90 NEXT : C=V+1 GOTO120 
440 IFVO47THEN550 
450 PRINT "«ELIMINO LM CX,V3 ES.IN" 

470 INPUT"LOC X £DEC3";X 

480 INPUT"LOC V CDEC3" ; V 

490 XI=X:X2=V G0SUE44 IFF1THEN450 

3O0 F0RT=V+1T0U 

510 P0KET-V+X- 1 ,PEEK(T1 NEXT 

520 F0RT=U-V*XT0U : PQKET ■0 NEXT 

540 F0RT*X-1T0X*1 LC=T : G0SUB90 : NEXT : C=>X G0T0128 

550 IFVO73THEN670 

360 PRINT"*i:REA SPAZIO PEft'I INS" 

570 PRINT-A PARTIRE DA LOC 'M*l'" 

590 INPUT "LOC £M]";M 
600 IHPUT"QUANTI INST"; I 
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610 IFI=0THEN120 

620 IFM+IXITHENPRINT"#IMPOSSIBILE CU3f":GOTO120 

630 FORT=11-1T0I1+1STEP-1 

640 POKET +1 / PEEK t T ) NEXT 

650 FORT-M+ITOM+I POKET,0 NEXT 

660 FQRT=MT0M+I+2 LC*T GOSU890 : NEXT■C=M+1 GOTO120 

670 IFVO83THEN730 

630 PRI NT "."FEO ISTRUZIONE LM" 

690 PRINTM9JLTIHA NEMORIA" 

692 F'R I NT " UT IL12ZAT A NEL PRG.LN" 

694 INPUT “C DEC ]",W 

696 1NPUT"TIT0L0 N • Ti 

697 T*«T#*":CM5“ 

700 OPEN1,1 - 2•Tf 
705 PRINT#1 , TP 

718 FORT=PTOW PRINTttl PEEKATrNEXT 
720 CL0SE1 PRINT"MDK, FATTO" C=P: GOTO120 
73£i IFVO76THEN800 
740 FRINT"SCARICAMENTO LM" 

745 PRINT"IIIIA CASSETTA*»" 

750 INPUT"1 LOG [7000]" , M 
760 0PEN1 , 1,0,T* 

765 INPUT#1,T$ 

770 INPUT#1 , VX POKEW, VX 

780 IFST=64THENCL0SE1 PRINT"CARICATO ",T#C=P G0TO120 

790 U-W+l GOTO770 

800 CD“V G0SUB82 F'RINTR»; 

810 GETS* : IFS*='"'THEN310 

820 PRINT8*:CD=ASC< S* > G03UB32 H*=R*+S* GOSUB40 
830 R0KEC,B LC-C GOSUB90 C*C+1 G0T0120 

READY. 


Istruz. n. I 


10-30 

32-33 

40-42 

44-56 


60-75 

82-84 


Commento al listato «Monitor L.M.» 

Protegge l'arca di memoria da 7000 (P) a 7679 (U) dal Basic; determina 
la colorazione di sfondo e il colore del carattere di stampa. 

Subroutine di trasformazione dal decimale D all’esadecimalc H$. 
Subroutine d’attesa. 

Subroutine di trasformazione dell'esadecimale H$ nel decimale D. 
Subroutine di controllo di validità dati: se P < X1 < X2 < U è FI = 0 
(tutto bene), in caso contrario è FI = 1 (errore) 

Subroutine: visualizza il menù ovvero l’elenco dei tasti associati alle varie 
operazioni. 

Subroutine: controlla che il tasto premuto sia uno di quelli previsti (codi¬ 


ce ESA / tasto «menù»). 

90-96 Subroutinc di stampa: in riferimento, alla locazione LC, calcola e visua¬ 

lizza i valori di fig. 1. 

100 Inizio del programma principale. 

120 C’è la locazione di riferimento (LR) 

135 Gestisce l’opzione «/» (barra spaziatrice) 

137 Gestisce l’opzione "f" 

140-150 Gestisce l’opzione «M» 

155-157 Gestisce l’opzione 

160-180 Gestisce l'opzione «T» 

190-210 Gestisce l’opzione «H» 

212-216 Gestisce l’opzione « » 

220-230 Gestisce l’opzione «*» 

240-250 Gestisce l’opzione «N» 

255-300 Gestisce l'opzione «U» 

320-382 Gestisce l'opzione «R» 

390-430 Gestisce l’opzione «L» 

440-540 Gestisce l’opzione «/» 

550-660 Gestisce l'opzione «|» 

(Se non vi c spazio sufficiente per l’inserimento richiesto, viene visualizzato il messaggio: 
«* IMPOSSIBILE (U) *» con cui si ricorda che, con l’opzione «U», conviene verificare 
le ultime locazioni utilizzate dal programma L.M.). 

670-720 Gestisce l’opzione «S» 

730-790 Gestisce l’opzione «L» 

800-830 Accetta i codici esadecimali delle istruzioni del programma in linguaggio 
macchina. 




messaggio appropriato. La 
LR diviene Y + 1. 

/ = DEL cancella i codici 
macchina dalle locazioni 
«x» a «y» comprese traslan- 
do i codici successivi a «y». 
La «coda finale» viene riem¬ 
pita con valori nulli. Come 
da esempio in figura 2 alla 
fine dell’operazione vengono 
visualizzati i contenuti di «\ 

- 1», «y», «y + 1». La 1JR 
viene posta uguale a «y». 

1 = INST consente l'inseri¬ 
mento di nuove istruzioni 
esadecimali tra quelle già ca¬ 
ricate in memoria creando 
l’opportuno «spazio» come 
nell’esempio in figura 3. 

Ad operazione avvenuta 
vengono visualizzati i conte¬ 
nuti delle locazioni in prossi¬ 
mità di quelle da inserire. La 
LR viene modificata, nell'e¬ 
sempio LR diviene 7002 in 
attesa delle 3 nuove istruzio¬ 
ni da inserire. 

N = NEW 1,M azzera i 
contenuti della memoria ri¬ 
servata al programma L.M. 
ovvero dalla locazione 7000 
alla 7679. Questa operazio¬ 
ne va sempre eseguita dopo 
il caricamento del program¬ 
ma Monitor L.M. quando si 
intenda redarre un program¬ 
ma L.M. Per evitare pressio¬ 
ni accidentali di questo ta¬ 
sto, viene richiesta una con¬ 
ferma prima di passare all’e¬ 
secuzione. 

* = BASIC termina il pro¬ 
gramma Monitor L.M. e 
rientra al Basic. 

M = MENÙ ricorda i tasti 
associati alle varie operazio¬ 
ni. 

= INIZIO porta la I R al 
valore 7000. 

CM DEC consente l'inseri¬ 
mento del codice di una 
istruzione L.M. in decimale 
anziché esadecimale. 
Esempio: 

C.M. IN DEC ? 141 
Effetto: 

8D 141 7001 1B59 
Questa operazione è partico¬ 
larmente utile nel carica¬ 
mento di un programma 
L.M. già «decimalizzato» 
come routine in L.M. di un 
programma redatto in Basic. 
L’istruzione n. 1 del pro¬ 
gramma Basic modifica il 
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Monitor in L.M. 

1 ) Codice csadecimale dell’istruzione 

2) Codice decimale dell’istruzione 

3) Locazione in decimale in cui il codice è stato inserito 

4) Locazione, in esadecimale, in cui il codice è stato inserito 

Figura 1 


(es.: A9) 
(es.: 169) 
(es.: 7000) 
(es.: 1B58) 


Monitor in L.M. 

Situazione 


codice 


ESA 

locazione 

A9 

7000 

FF 

7001 

8D 

7002 

40 

7003 

0 

7004 

0 

7005 

impostando: 

LOC IN. (DEC) = 7001 

LOC FIN (DEC) = 7002 

Effetto 


codice 


ESA 

locazione 

A9 

7000 

40 

7001 

0 

7002 

0 

7003 

0 

7004 

0 

7005 

Figura 2 


Situazione: 

A9 

7000 

FF 

7001 

8D 

7002 

40 

7003 

0 

7004 

LOC (M) ? 7001 

QUANTI INSERIMENTI 

? 3 


Nel rettangolo le locazioni 
visualizzate. 

Effetto 

A9 

7000 

FF 

7001 

00 

7002 LR 

00 

7003 

00 

7004 

8D 

7005 

40 

7006 

0 

7007 


Figura 3 


puntatore del «limite della 
memoria» (locazioni 55 e 
56), proteggendo l’area di 
memoria che va dalla loca¬ 
zione 7000 alla 7679 che ri¬ 


sulta quindi disponibile per 
la memorizzazione delle 
istruzioni del programma in 
L.M. Nella realizzazione di 
questo programma per un 
VIC versione standard (3,5 
K bytes), si è posto il proble¬ 
ma di equilibrare la lunghez¬ 
za del programma Basic con 

10 spazio disponibile per il 
codice macchina. Per evitare 
un’eccessiva occupazione di 
memoria del programma 
Basic, non è stato realizzato 
un controllo completo dei 
dati in «input», è opportuno 
comunque ricordare che 
qualsiasi segnalazione d’er¬ 
rore (come ILLEGAL 
QUANTITY ERROR...) 
non pregiudica il contenuto 
dell’area riservata al pro¬ 
gramma L.M., che risulta 
disponibile rimandando in 
esecuzione il programma 
MONITOR L.M. In altri 
termini, durante la redazio¬ 
ne di un programma in 
L.M., è sempre possibile in¬ 
tervenire con il tasto RE- 
STORE senza perdere i co¬ 
dici L.M. già redatti. 

È ovvio come, disponendo 
di una qualsiasi espansione 
di memoria, sia possibile, 
modificando i valori nella 
prima istruzione, migliorare 

11 programma Basic e/o au¬ 
mentare lo spazio a disposi¬ 
zione per il programma 
L.M. 

Il seguente programma in 
L.M. (da «VIC REVEA- 
LED» di Nick Hampshire, 
pag. 37) può essere utilizzato 
come prova su un VIC 20 
versione standard: 

(0 = zero) 

A9 FF 8D 40 03 A2 FF AD 
40 03 9D 00 1E 
A9 04 9D 00 96 CE 40 03 
CA DO EF 60 
il programma realizza la vi¬ 
sualizzazione del set di carat¬ 
teri del VIC 20. 


Come descritto in preceden¬ 
za, è possibile redarre un 
programma L.M. dalla loca¬ 
zione 7000, registrarlo su na¬ 
stro e ricaricarlo in una di¬ 
versa area di memoria. Ov¬ 
viamente tale operazione è 
eseguibile per programmi 
che non contengono salti ad 
indirizzi assoluti del pro¬ 
gramma stesso. 

E anche ovvio che l'esecu¬ 
zione di un programma in 
L.M. si può ottenere rien¬ 
trando al Basic e digitando 
l’opportuna istruzione SYS 
(es. SYS 7000). 

Sprite Editor 
per gestire 
la grafica 

di Walter Pistarini 


I l COMMODORE 64 ha. 

una delle migliori capaci¬ 
tà grafiche degli Home 
Computer sul mercato, 
«battezzata» Sprite. 

Che cos’è uno Sprite? Il no¬ 
me, di per sé, non significa 
molto, esattamente Spirito. 
Folletto; ma il concetto è si¬ 
mile a quello della gestione 
grafica dei missili sugli ATA- 
RI. 

Ogni Sprite è una entità ad 
alta risoluzione, costituita da 
un insieme di 21 righe di 24 
punti ciascuna, ed ogni Spri¬ 
te (fino ad un massimo di 8 
contemporaneamente) è ge¬ 
stito dall’integrato che si cu¬ 
ra di tutta la gestione video, 
chiamato VIC II (Video In¬ 
terface Chip II). Per pro¬ 
grammarne uno, tutto quel¬ 
lo che dovete fare è di defini¬ 
re la sua sequenza di bytes, 
selezionare il suo colore, sce¬ 
gliere la sua posizione (su un 
asse orizzontale X che va da 
0 a 512 e su un asse Y che 


va da 0 a 256) ed infine «ac¬ 
cenderlo». Cambiando i va¬ 
lori di X ed Y, potete muo¬ 
vere Io Sprite in qualunque 
posizione dello schermo. 

Ma veniamo ora a qualche 
dettaglio: come ho già detto, 
fino a otto Sprites possono 
essere mostrati sullo scher¬ 
mo contemporaneamente. 
Ogni Sprite ha un puntatore 
(lungo 1 byte) sopra il bloc¬ 
co della memoria video. Il 
puntatore indica un blocco 
di 64 bytes entro un «ban¬ 
co» di 16K selezionato dal 
VIC II (voglio dire che il 
VIC II «vede» solo I6K, e in 
questi 16K. ci devono stare 
la memoria video, i puntato¬ 
ri agli Sprites e i dati necessa¬ 
ri per costruire gli Sprites). 

L’ultimo byte dei 64 usati 
per descrivere uno Sprite è 
un byte di controllo; gli altri 
63 contengono delle infor¬ 
mazioni sui «punti» (o «Pi- 
xels») che costituiscono lo 
Sprite. Ogni gruppo di tre 
bytes rappresenta una riga di 
24 punti dello Sprite. Nel 
modo standard, un bit (ce ne 
sono otto in un byte) messo 
a 1 mostra un punto del co¬ 
lore selezionato, mentre un 
byte messo a 0 mostra cosa 
c'e sotto di esso, (normal¬ 
mente lo sfondo, ma potreb¬ 
be essere una parte di uno 
Sprue d; più bassa priorità). 
Associato con ogni Sprite ci 
sono alcune altre locazioni 
di memoria nel chip del VIC 
IL I! registro di abilitazione 
della visualizzazione ha un 
bit per ogni Sprite. come pu¬ 
re ii registro di abilitazione al 
multicolore, quello di rad¬ 
doppio della dimensione 
orizzontale e quello per la 
dimensione verticale: c’è poi 
quello della priorità dello 
Sprite rispetto allo sfondo, 
quello che si accorge della 
collisione fra due Sprites, e 
quello della collisione dello 
Sprite con lo sfondo. 

Ancora, c’è un byte per ogni 
posizione verticale dello 
Sprite. ed un byte per il posi¬ 
zionamento orizzontale. Da¬ 
to che ci sono più di 256 po¬ 
sizioni orizzontali, c’è anche 
un byte contenente un bit 
per ogni Sprite e che serve 
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IO Mette Io «Sfondo 0» in blu, dimensiona le matrici e inizializza le variabili X, Y, R, C, S ed SI. 

20 Inizializza il VIC II mettendo a zero i vari registri di visualizzazione e raddoppio dello SPRITE, fa un RESTORE (questo perche 
potremmo arrivare qui anche per resettare il tutto, vedi riga 470, quando si vuole un nuovo schermo) e legge, nella matrice A$ i nomi di 
tutti i colori disponibili che saranno poi stampati sulla parte sinistra dello schermo. 

10 Riempie tutta la matrice A con dei punti (valore ASCII del punto - 46), questo per riempire la griglia che sarà poi mostrata sullo 
schermo. Dopodiché riempie tutta la matrice B di zeri, perché, ovviamente, i DATA per costruire in seguito lo SPRITE a questo punto 

devono essere tutti a zero. . . 

40 Posiziona lo SPRITE N. 2 sullo schermo, con coordinata X=60 e Y-200. Mette a posto il puntatore alle informazioni per costruire 
lo SPRITE N. 2 (puntatore che si trova a 2042) e gli dice di leggere i 63 bytes necessari all’indirizzo 832. Mette a posto i colori nei registri 
appropriati, utilizzando i colori che assume alla partenza (nero, blu chiaro, bianco) e che possono essere cambiati in qualunque 
momento con i tasti F3, F5 ed F7. Da notare che questa riga di programma (come molte altre) serve solo a poter mostrare lo SPRIIE 
nella parte in basso a sinistra dello schermo. . cnDI . Tt: 

50 Riempie con i dati dello SPIRITE (che si trovano nella matrice B), le locazioni di memoria usate dal VIC II per costruire lo 5FKII h. 
Normalmente a questo punto le informazioni sono tutte a zero e non si vedrà nulla, ma se noi leggessimo da cassetta uno SPRI 1 E 
precedentemente costruito, arrivando qui la matrice B conterrebbe valori «reali». Il secondo POKE serve a visualizzare lo SPRITE ed il 
terzo a dire al VIC II che lo SPRITE è di tipo multicolore. 

60-125 Stampa la lista dei comandi disponibili. 

130 Disegna la griglia di punti sullo schermo. Questo viene fatto stampando tutta la matrice A nella parte destra dello schermo. 

140 Dopo aver messo X c Y a 1 va a 290 per disegnare il cursore. 

150 Legge il comando battuto. 

160 Mette il valore corrente letto nella matrice A dentro la griglia 

170-185 Spostamenti del cursore: l’unica cosa che fa è di incrementare o decrementare X o Y, X è incrementato o decrementato di _ 
perché si lavora su uno SPRITE multicolore. Se X o Y vanno oltre il bordo della griglia, si fa comparire il cursore sul Iato opposto. 

190 Se si è battuta la freccia verso sinistra, le corrispondenti 2 posizioni orizzontali sono messe al ? 

195 Se si è battuto uno dei tre colori possibili, in R viene messo il corrispettivo ASCII del numero battuto (49 per un 1,50 per un 2, e 51 
per un 3) ed il valore di R viene messo nelle due posizioni orizzontali corrispondenti nella matrice A. 

200 La gestione del calcolo dello SPRITE viene fatta a partire dalla riga 300 

210 Questo comando, come il seguente, è bivalente: Se lo SPRITE è stato raddoppiato su scala X, viene riportato alle dimensioni 
normali: se è di dimensioni normali viene raddoppiato. In questa riga c’è un esempio significativo di istruzione ABS. Vediamo cosa 
succede. Se lo SPRITE è stato raddoppiato, in V+29 troveremo un 4 (per lo SPRITE N. 2) e 4-4 fa 0, per cui mettendo 0 in V+29 
riporteremo lo SPRITE alle dimensioni normali. Se invece era già di dimensioni normali, con il PEEK (V+29) troveremo 0 e 0-4 fa -4. 
ma l'istruzione ABS ci dà il valore assoluto di un numero e senza segno, per cui ci dà 4». Facendo il POKE di 4 in V+29 raddoppieremo 
la dimensione orizzontale dello SPRITE. 

220 Stesso discorso fatto alla riga 210, solo che qui è coinvolta la dimensione verticale. 

230 II risultato dello SPRITE in DATA è gestito dalla riga 380. 

240 Per il salvataggio o il caricamento da nastro e per un nuovo schermo o per finire si va alla riga 460. 

250-280 A seconda del tasto funzione scelto si mette in R un certo valore, dopodiché si va alla linea 400. Da notare che R è il numero 
di registro del VIC II (in questo caso) e che 33 è per il colore 0 di sfondo. 37 è il registro multicolore 0, 41 è il colore dello SPRITE N. 2 
c 38 è il registro multicolore 1. 

290 Stampa il cursore. In questo caso R c la locazione attuale del cursore, C è il carattere che c’è sotto il cursore messo in REVERSh 
(sommandogli 128). * 

300-320 Calcolo dello SPRITE e cioè dei valori da usare nel POKE per costruire lo SPRITE. Sappiamo che tutti ì valori della griglia 
sono nella matrice A. che contiene un 49 se è stato premuto il colore 1, 50 per il colore 2 e 52 per il colore 3. Si tratta ora di prendere 8 
elementi orizzontalidclla griglia e trasformarli in un byte,considerando anche il fatto che gli elementi devono essere presi in coppia. Viene 
Ietto un elemento, gli viene sottratto 48 in modo tale che il valore sia nuovamente 0, 1, 2, o 3 e viene messo in Q. Poi (linea 320) viene 
costruito il valore da mettere nella matrice B, utilizzando l’elevazione a potenza perchè, come ben sapete, i valori dei bit in un byte sono 

tutti in potenza di 2. . 

Questo viene fatto per tutti gli elementi della matrice A, che sono usati per riempire la matrice B con i 63 valori necessari. Subito dopo 
(sempre linea 320) vengono scritti in memoria (a 831+X) i dati dello SPRITE appena costruito, e si ritorna alla lettura della tastiera. 
330-360 Subroutine (chiamata alla linea 460) che ristampa il comando battuto, chiede conferma, mette la risposta in N$ e posiziona il 
cursore. 

370 Subroutine (chiamata alla riga 390) che si rifà alla precedente, ma chiedendo stavolta quando si vuole continuare. 

380 Stampa della matrice B. contenente tutti i valori mecessari per costruire lo SPRITE. La froma «strana» dei comandi di stampa è 
dovuta al fatto che si vogliono stampare 7 righe di 9 dati ciascuna. 

390 Dopo aver stampato la matrice, va a 370 per stampare il messaggio «CONTINUA» e dopo va a 60 per ristampare lo schermo con 

la matrice. .... . . . . 

400-450 Qui troviamo la gestione della colorazione dello SPRITE (gestita con i tasti funzionali). Quando si arriva qui R contiene il 
numero del registro del VIC II interessato (vedere commento alle righe 250-280). Per prima cosa si legge il contenuto attuale del registro 
c lo si mette in C, dopo avergli datto un AND con 15 perché il valore netto non può e non deve superare 15. Poi lo si incrementa di I 
(cambiando quindi il codice del colore) ponendo attenzione a che non superi il valore massimo di 1 5 (in questo caso viene messo a zero). 
Alla linea 410 viene scritto, nel registro selezionato, il nuovo valore e si comincia a posizionare il cursore sulla prima riga dei comandi 
(quella col comando di cancellazione). Le linee da 410 a 440 servono giusto a posizionarsi sullo schermo di fianco alla scritta «CANC» 
se si è cambiato il colore dello schermo oppure di fianco alle scritte 1, 2 e 3 se si è cambiato un colore dello SPRITE. Il nuovo colore 
viene «scritto» alla linea 450. 
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460-480 Qui comincia la gestione dei rimanenti 4 comandi. Se il comando è un «N» (Nuovo schermo) si va alla linea 20 per rifare 
tutto. Se il comando riguarda il salvataggio o la lettura o la fine si chiede conferma (perché in ogni caso si distruggerà quello che si è fatto 
finora) facendo un GOSUB a 330. Se non c'è conferma si riprende il giro. Se c'è conferma, si analizza il comando. Se il comando è «F» 
(fine) si «spegne» lo Sprite e si finisce il programma (linea 480). 

490 Se si giunge qui, il comando riguarda il salvataggio o la lettura di uno SPRITE da/su cassetta, per cui si «spegne» lo SPRITE c si 
chiede il nome, che servirà sia a scriverlo che a leggerlo. 

500 Se il comando è «L.» (lettura) si fa la OPEN per leggerlo e si va a 520. 

510 Se il comando è «S» (scrittura) si scrive tutta la matrice B su nastro e si ricomincia da capo mostrando di nuovo lo SPRITE. 
520-550 Continuazione del comando «L» (lettura da nastro). Si comincia col leggere tutti i dati necessari e li si mette nella matrice B. A 
questo punto bisogna riempire la matrice A, che sappiamo contenere non già i dati di B. ma una loro estrapolazione, in quanto ogni 
dato (o byte) in B è rappresentato da ben otto dati (o bytes) in A. Ed ecco quindi i calcoli fatti alle linee 530-540, che non fanno altro che 
convertire un dato in otto dati. Infine si resetta il posizionamento del cursore c si va a mostrare il lavoro fatto. 

560-570. Nomi di tutti i colori disponibili, usati per scriverli nella parte «comandi» dello schermo. 


appunto a poter indirizzare 
le posizioni orizzontali da 
257 a 320. Questa comples¬ 
sità c necessaria per mante¬ 
nere una così potente capa¬ 
cità grafica. 

Gli Sprite standard (e cioè 
colorati interamente con un 
solo colore), possono essere 
mostrati in ognuno dei sedici 
colori disponibili. Gli Sprites 
multicolore invece possono 
essere colorati con quattro 
diversi colori per ogni Sprite, 
ed i colori sono determinati 
considerando i bit a coppie. 
Se la coppia è formata da 
due zeri (00) viene seleziona¬ 
to il colore dello sfondo (cioè 
non si vede niente), «01» se¬ 
leziona il colore che è stato 
posto nel registro multicolo¬ 
re numero 0, «10» il colore 
che è stato posto nel registro 
di colore standard per quello 
Sprite. e «1 1» il colore che è 
stato messo nel registro mul¬ 
ticolore numero 1. Usando 
gli Sprites nel modo multico¬ 
lore, la definizione orizzon¬ 
tale viene un po' a mancare, 
in quanto avremo dei punti 
(rispetto agli Sprite monoco¬ 
lore) che sono larghi due 
volte un punto dello scher¬ 
mo. 

Ogni Sprite può essere rad¬ 
doppiato in larghezza e/o in 
altezza. 

Per gestire «dolcemente» 
l'entrata e l'uscita degli Spri¬ 
tes sullo schermo, le posizio¬ 
ni possibili per X e Y sono 
oltre la porzione visibile sul¬ 
lo schermo (512x256 invece 
che 320x200). In questo mo¬ 
do è possibile vedere «spun¬ 
tare» uno Sprite lentamente 
da qualunque parte dello 
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9 PEI INTZIALIZZAZIONE GENERALE 
10 POPE 53281,6:DIR A (2 1,24) , B (6 3) , A*(15): X=0: Y = 0: ? = 0: 
C=0: S=1039; S 1 = 55 31 1 

19 REE INIZIALIZZAZIONR DEL VIC TI 

20 V=5324 8: P0»E V«21,0: POKE V*23,0: PONE 7*29,0: «ESTORE 
:EOR » = 0 TO 15: READ A»(X): NEXT 

29 REE RIERPIRENTO NATRICI A E B 

30 PRINT" (CLR)": FOT P=1 TO 21: »OR C=1 TO 24: A(P,C)*46 : 
NETT: NEXT: »OR 1 TO 63: B(T)=0: NEXT 

39 REE POSIZIONAR ERTO SPRITE N.2 

40 PORR V «4,60 : ’0»E V*5,200: POE E 2042, 13: POE» 7*37,0 : 

, t POE» V*4 1 , 14 ; PQK» V♦ 3H , 1 

50 EOP X=1 TO 63: POE E 831*X,P(X): NEXT: POE» 7*21,4: ?0»E 
V* 28,4 

59 PER STAE n A DELLA LISTA DEI CORANDI 

60 PRINT"<CLR) (CG) EDITOR DI SPRITP (CG)" 

70 PPINT"»- CANC." 

75 PP TNT"1 «CO - NERO" 

80 PPTNT"2 SC - BLU CM." 

05 PPINT"3 RC 1 -BIANCO" 

90 PRTNT"= CALCOLA SPEITE" 

95 PPTN^"X CANBIA IN 'X'" 

100 PPINT"Y CARDIA IN •Y"' 

105 P»TNT"F DATI DEt. BASIC" 

110 PRTNT»N NUOVO SCHERNO" 

115 P D TNT"S PA* IT. SAV»" 

120 PRTNC’L FA' IL LOAD" 

125 PRINT"P PINE" 

129 PER DISEGNO DELLA CIGLI A 

130 Y = 0: FOR R* 1 TO 21: ROR C=1 ""024: Y=Y*1:»OKE S*Y,A(»,C) 

: ROKE S 1 ♦Y,14: NEXT: Y=Y*16: NEXT 

140 X= 1 : Y= 1 : GOTO 291) 

149 PER LETTOR». COSANDO BATTUTO 

150 GET A »: I» A X = "" T«»N 150 

160 P = S*X* (V-1)«40: C«A(T,X): PONE R,C: PONE R♦1, C 

170 I» A* = "(c:)" TH»X Y = Y* 1 : TF Y>21 THEN Y = 1 

175 IP AX = " (CA)" THEN Y=Y-1: IF Y<1 THEN Y = 21 

180 IE A» = "(CD)" THEN X=X*2: IF X774 THEN X=1 

135 IE AA = " ( C S)" THEN X = X-7: IP X<1 THEN X = ?3 

1)0 TF »» = "♦" THEN A ( Y , X)=46: A(Y,X»1)=46 

195 IE A 5>" )" AND A*<»4" 7H»N R=«9♦V AL(A») : A(Y,X)=»: 

» (Y,X* 1) =3 

■•CO IF »»=" = " TF»N 300 

’IO TE A7 = ":-:" TH»N ?0»E V♦ 29 , A R S ("P»» ( V ♦ 29) -4) 

220 IF A3 = " Y " TH»N "OXE V«2.3, ABS ("REK ( 7*21)-4) 

’.to I» AA = "H" THEN 380 

240 ir = OR A S="3" OR AI = "N" OR A 5 = "F" THEN 460 

7 'iO TE A» = "(P1)" TH»N 3=33: GOSUE 400 

26) I" AX="(F3)" THEN R=37: GOStIR 400 

”0 IP A i = " (» ■>)" THEN R=41: G0SUP 400 

280 IE A A = " (E 7)" TH°N °= 3 3 : G0SH3 400 

7R9 REM pOSIZT ONAHENTO CORSOItB 

290 P=S«!f* (V- 1)*40; C= (A (Y,X)♦ 123) : POKE R,C: PO»» R*1,C: 
GOTO 150 
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Listato - Sprite Editor 


?<iq 

100 

310 

320 

329 

330 
340 
350 
360 
370 

379 

380 

390 

399 

400 
4 10 
420 
430 
440 
450 

459 

460 
470 
490 

489 

490 

900 

510 

519 

520 

530 

54 0 
580 
559 
8 60 

870 


PER CA1.001,0 DELLO SPRITE 

r*0: 'nn r=i to 21: por x=0 to 2: Y=Y»i: 3(Y)»0: por C»1 
TO 7 STEP 2: Q=A (P,X*8*C)-48 
IF Q<9 OR P> 3 THEN Q=0 

B (T)' B (Y)♦ 24 (7-C)*Q: N EXT : N EXT: MRXT: FOR X*1 TO 63: 

POf" 83UX,B(X): NEXT: GOT0 140 

REI STAPPA PICHIESTA DI CONPEPHA DEL COMANDO 

PRINT" (REV) "AH": 81 O NO" 

EO? X»1 TU 10: OTT N $ : N EXT 

CRT N*: I’ *«■"" THEN 150 

PTI NT" (C A) (IN spazi) (CA) ": PETUHN 

PPINT" (?EV)CONTINUA": GOTO 340 

PER STA"PA NATRICE R ("ATI DELLO SPRITE) 

PRT NT"(CLfl )": FOR X«1 TO 7: "RINT"DATA"; : FOR Y«1 TO 9: 
PRINT 8((X-1)*9*1): NEXT 

PRINT" (CS) " : NEXT : PRINT: GOS1IB 370 : GOTO 60 

P»N GESTIONE DELLA COLORAZIONE DFLLO SPRITE 

C"PERF (V"R) AND 15; C* C*1: IF 015 THEN C«0 

PONE VO,C: PRINT"(UOSE). (3 CG)";: IF P«33 THEN 450 

PPINT"<CG) ";:IF P*37 THFN 450 

PRINT" (CG) :IF P’41 THEN 480 

PPTNT" (CG) 

PPINT" (7 CD) " AS (C) " " : R ETUPN 

eri GESTIONE CON INDI RIMANENTI 
GOS'JB 330: 3 F N«<>"S" THEN 290 
G C T N«: GCT N*: I c A S = "N" THEN 20 

JE A**"F" T'i'N POFE V»?1,0: PONE V*2P,0: PPINT"(4 CG)": 
ENP 

PF" GESTIONF CONANPI * I.' 0 ’ S* 

PRINT"(CLD PCF E V*21,0: INPUT "NOMP DFLLO SPRITE";NE: 
PPINT 

jr ut!" I," "'1IEN OP^Nl , 1,0, NS: GOTO 5?0 
OPEN 1, 1 , 1, N* : '-OP X=1 TO 63: PPINTI1 ,D(X) : 

GOTO 50 

per CONTINUAZIONE COMANDO ' L' 

FOT X=1 TO 68; INPUT*1 , B(X): NEXT: CLOSE1: 

CACOtC LA MATPICE" _ . 

Y = 0: FCr P«1 TO 21: FOR X = 0 TO 2: Y»Y* 1: TOP C*2 TO 8 

3TE» 2: D»X"B*C: P*24(9-C) 

r»* a (Y) AND (P* 3) i A(?,0)=46: A (P,0 _ 3) =5/P*4P 
N r X T ' N ■' YT : HCXT: S=1089; GOTO 80 
itVio»: de: cclofi, da carica?»- in Af(i5) 

DAT». NERO., BIANCO, POSSO, Cv»N, PQEPOPA, V C RDF, BLU., 

PAtI aRANCTO, fl A RR 0 N c , POSSO C, GPIGIC1, GRIGIO?, 

VERDE C, 31U C!'. , S P IGT()3 


NEXT :CLOS E1 : 


PRINT"(CG) 


Lista variabili - Sprite Editor 
Lista delle variabili 

A (21,24) - Matrice contenente la raffigurazione della griglia mostrata sullo schermo 
B (63) - Matrice contenente i dati per costruire lo SPRITE 
A$ (15) - Matrice contenente i nomi dei colori disponibili 

X,Y - Posizioni orizzontale e verticale del cursore. Usati anche con altri significati. 

R - Riga della matrice A usata anche con altri significati (registro VIC II, etc.) 

C - Colonna della matrice A usata anche con altri significati. 

S - Indirizzo della memoria video per gestire il disegno della griglia 

SI - Indirizzo della memoria colore, usata per gestire il disegno della griglia. 

Q - Valore del colore selezionato (da 0 a 3) 

V - Indirizzo del VIC II 
A$ - Comando battuto 


schermo. 

Prima ho menzionato le 
priorità. Gli Spritcs, di per 
sé, hanno delle priorità fisse 
uno rispetto l’altro: lo Sprite 
0 ha una priorità più alta 
dello Sprite N. 1, 1*1 ha una 
priorità più alta dello Sprite 
N. 2 e cosi via. Però ogni 
Sprite ha la priorità nei con¬ 
fronti dei dati sullo sfondo 
(testo o sfondo vuoto) che 
può essere scelta a piacere. 
Da notare che gli oggetti in 
priorità più alta «passano so¬ 
pra» a quelli in priorità più 
bassa, senza «cancellarli». 

Gli scontri sono avvertiti dal 
VIC II, e i bits appropriati 
sono messi a 1 in due regi¬ 
stri. 1 bit messi a uno in que¬ 
sta maniera, saranno ripristi¬ 
nati al valore iniziale di zero 
appena il vostro programma 
li avrà Ietti. In questo caso 
l’intero registro viene azzera¬ 
to. 

C’è un registro per la colli¬ 
sione fra due Sprites, ed uno 
per la collisione tra Sprite e 
sfondo. 

Alcune limitazioni possono 
essere ovviate usando tecni¬ 
che di programmazione più 
sofisticate. Per esempio è 
possibile avere più di otto 
Sprites sul video mostrati 
contemporaneamente, usan¬ 
do una tecnica detta «raster 
interrupt». Ancora, potete 
avere (visto l’abbondanza di 
memoria) molti Sprites defi¬ 
niti in memoria, e potete 
cambiare i puntatori a se¬ 
conda di quale vi serve. 


Creazione di uno Sprite 

Per creare uno Sprite, dove¬ 
te disegnarlo in una griglia di 
24x21 punti. Dopodiché do¬ 
vete convertire l’insieme dei 
punti in una riga in tre bytes 
di dati, usando il codice bi¬ 
nario. Per ogni bytes si som¬ 
mano i valori dei singoli bits 
messi a uno. Tutto questo è 
spiegato, abbastanza chiara¬ 
mente, nel manuale del 64. 
Da tutto ciò si rileva che 
creare gli Sprites non è ec¬ 
cessivamente difficile, una 
volta presa la mano, ma ter¬ 
ribilmente tedioso. Il pro¬ 
gramma oggetto di questo 
articolo è appunto un «Edi- 
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tor» di Sprites e cioè un «at¬ 
trezzo» per costruire veloce¬ 
mente gli Sprites. I comandi 
che accetta sono tutti attuati 
con un tasto: potete visualiz¬ 
zare lo Sprite che state co¬ 
struendo. fare delle modifi¬ 
che se volete, farvi mostrare 
i dati da usare poi nel vostro 
programma, scriverlo su na¬ 
stro od eventualmente rileg¬ 
gerlo per fargli ulteriori mo¬ 
difiche. E scusate se è poco. 
Una volta fatto partire il 
programma, tutti i comandi 
disponibili sono stampati 
sulla parte sinistra dello 
schermo. Sulla parte destra 
invece ci sarà una griglia di 
24x21 punti, che è usata per 
creare/modificare lo Sprite. 
Per muovere il cursore (che 
sarà posizionato inizialmen¬ 
te in alto a sinistra) usate i 
soliti tasti di controllo del 
cursore. Se volete «accende¬ 
re» un punto nello Sprite, 
premete i tasti 1, 2 o 3. A 
questi tasti sono associati tre 
colori (inizialmente nero, az¬ 
zurro e bianco) che potete 
cambiare premendo i tasti 
funzionali 3. 5, e 7 rispetti¬ 
vamente. 

Mano a mano che cambiate 
i colori vedrete che anche le 
descrizioni dei tasti 1, 2 e 3 
cambieranno. MC di fianco 
ai tasti 1 e 3 significa Muiti- 
Colore, mentre SC di fianco 
al tasto 2 significa Singolo 
Colore: si riferiscono ovvia¬ 
mente ai registri del VIC II. 
È importante ricordarsi di 
ciò perché se vorrete gli stessi 
colori nel programma che 
userà lo Sprite, dovrete met¬ 
tere gli stessi colori nei regi¬ 
stri corrispondenti (Registri 
multicolore 0 e 1 e registro 
di colore dello Sprite). 

Se invece volete cambiare il 
colore di tutto lo schermo 
potete farlo battendo il tasto 
funzione FI. Se volete can¬ 
cellare una coppia di punti 
precedentemente accesa, lo 
potete fare con il tasto <o>. In 
qualunque momento potete 
vedere lo Sprite come sarà 
mostrato nelle sue dimensio¬ 
ni reali premendo il tasto 
«=»: lo Sprite vi comparirà 
nella parte in basso a sinistra 
dello schermo. Se cambiate i 
colori vedrete che anche il 


«piccolo» Sprite cambierà 
colore. Ricordatevi comun¬ 
que di battere il tasto di cal¬ 
colo dello Sprite (l'uguale) 
prima di visualizzare i dati 
per la sua futura costruzione 
(con il tasto «B») o prima di 
salvarlo su nastro (con il ta¬ 
sto «S»), Questo perche so¬ 
lo quando voi battete «=» il 
programma si calcola tutte 
le informazioni per creare lo 
Sprite. e non mentre voi lo 
disegnate nella griglia. 

Anche se fate delle modifi¬ 
che al disegno, queste non 
saranno riportate sul «picco¬ 
lo» fino a che non batterete 
l’«=». Le altre cose che pote¬ 
te fare sono l’espansione 
orizzontale del «piccolo» 
Sprite, come pure quella 
verticale (battendo rispetti¬ 
vamente X e/o Y). Per rico¬ 
minciare a disegnare un al¬ 
tro Sprite battete il tasto 
«N» (nuovo schermo) e az¬ 
zererete tutti i dati. Battendo 
invece «L» caricherete uno 
Sprite già fatto da nastro 
mentre il tasto «F» serve a 
far finire il programma. 


Note sul listato 


Nel listato del programma 
CG significa «Cursore Giù»; 
CA invece vuol dire Cursore 
in Alto, CD cursore a destra 
e CS cursore a sinistra FI, 
F3, F5, F7 sono i rispettivi 
tasti funzionali. 

«CI.R» vuol dire Clear 
Screen, REV vuol dire RE¬ 
VERSE ON. Qualche volta 
davanti ai tasti di movimen¬ 
to cursore c’è un numero: 
vuol dire di battere quel ta¬ 
sto un certo numero di vol¬ 
te. Per esempio: (3 CG) vuol 
dire di battere tre volte il ta¬ 
sto di Cursore. Un’ultima 
cosa: le ultime due righe del 
programma contengono i 
nomi dei colori, e dopo alcu¬ 
ni nomi è e un punto: batte¬ 
telo (non è un errore di 
stampa). Serve a fare in mo¬ 
do che quando cambiate co¬ 
lore non resti, sotto il nuovo, 
qualche rimasuglio del no¬ 
me del colore che c’era pri¬ 
ma. Per la spiegazione detta¬ 
gliata del programma vi ri¬ 
mando alle REMarks. Au¬ 
guri. 


Roll up e roll 
down per Vie 20 

Q uesto piccolo program¬ 
ma vi permetterà di li¬ 
stare i vostri programmi ed 
eventualmente di ritornare 
su una linea appena listata. 

L'editing da schermo essen¬ 
do di soli 22 caratteri richie¬ 
de. se il programma è abba¬ 
stanza lungo, parecchio tem¬ 
po e molta noia mantenen¬ 
do la possibilità di fare altri 
errori. Un buon debug si fa 
o con listato su carta, o 
avendo a disposizione la 
possibilità di listare in modo 
bidirezionale: bene con que¬ 
sto programmino anche voi 
che possedete il Vie 20 po¬ 
trete farlo. 

La linea 1001 determina 
l'indirizzo della locazione di 
memoria di partenza (GO) 
per ogni particella di memo¬ 
ria del VIC. La linea 1002 
calcola il numero delle linee 
(LN) del programma da li¬ 
stare. La linea 1003 prepara 
il video per il listato della li¬ 
nea, dopodiché continua il 
programma. Appena termi¬ 
nata la lista, il programma 
termina, e questo è gestito 
dalla linea 1004 che control¬ 
la la lista e continua in se¬ 
quenza dato il comando go¬ 


to 1010. In linea 1010 e 
1030 sono le linee che vi 
danno la possibilità di rol- 
lappare o rolldaunare (belli 
no!), premendo o il segno 
del minore (<) o il segno 
del maggiore (>) per anda¬ 
re rispettivamente in su o in 
giù. 

Attenzione alla linea 1100 
che controlla il prossimo O 
in Basic, ossia la prossima fi¬ 
ne linea basic e che quindi vi 
rimanda a calcolare il prossi¬ 
mo numero di linea. La li¬ 
nea 1200 controlla in modo 
routine la fine della linea 
precedente per potervi even¬ 
tualmente ritornare. Per po¬ 
ter usare bene questo mini 
programma dovrete quindi 
eliminare gli O negli indiriz¬ 
zi che determinano il nume¬ 
ro di linea, non amettendovi 
uno O in questa locazione di 
memoria. 

Onde evitare di ribattere 
sempre questo seppur corto 
programma al momento di 
una LOAD ad un program¬ 
ma applicativo, eseguite: 
CLR: PRINT PEEK (45): 
PRINT PEEK (46) 

Battete quindi la linea im¬ 
mediatamente seguente 
POKF. 43. PEEK (45)-2: 
POKE 44. PEEK (46) 

Tale linea vi permette di 
spostare l’inizio del Basic a 
due byte prima della fine del 


Listato - Roll up 

1000 f’EM SUCilULST ••• 

IODI fì0 a PEEK(44)+25£*PEE* 43 -1 

LH*.PEfc.M GO + 3 •♦P£E- Gi>4ì#25$ 
1003 PR. 1 MT •• GOTO’ 1010 :PP!>«T 

"LlSfMLHl 

*0 TX*,?m 3 : PO'PT*32 . . " 

1 DliS PO K Et. 31» 31 » POKES34 . 1 ? 

1006 P0KE69E 19. P0KE63C.13 

1007 P0KE198.6*END 

1 DI 0 1F PEEK ' 197 >«60 T-»SW UGO 

102:0 IF PEEKU9T -62 TmEm i 200 
i 030 *30T0 1 0 i 0 

1100 1F r'£E K 1 G0 - * £■ 1 ’ 3 THE t* *30»r»0 ♦ 1 
1105 GOTO 1100 
1110 G0*GD*S t G0"0 1002 
1200 G0-G0-UIF Pf E* <00^*0 
PEEK<G0-4><>0 ANO 
PEEK<G0-3><>0 THfri 1002 
.210 GOTO 1200 
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programma (sarà necessario 
un nullo o uno 0 per iniziare 
a caricare un nuovo pro¬ 
gramma). 

Ora caricate il vostro pro¬ 
gramma che chiamerete 
«SUGIULST» (o se no chia¬ 
matelo un po' come vi pa¬ 
re). resettate i puntatori basic 
con : POKE 42.1; POKJE 
44.16 per il vostro V1C ine¬ 
spanso. Dopodiché comin¬ 
ciate ad editare battendo 
RUN 1000. 

Avrete la possibilità di verifi¬ 
care linea per linea il vostro 
programma senza doverlo li¬ 
stare su carta dopo ogni mo¬ 
difica. 

Il «Simon» 
sul C64 

i proponiamo un pro¬ 
gramma inviato da 
Roberto Anglesio di Torino; 
una interessante realizzazio¬ 


ne su C64 del famosissimo 
gioco «Simon». 

11 gioco originale è costituito 
da un apparecchio circolare 
capace di emettere delle se¬ 
quenze di suoni in tonalità 
differenti. Una volta ascolta¬ 
ta la sequenza il giocatore 
deve riprodurla esattamente, 
agendo su uno dei quattro 
settori circolari, colorati dif¬ 
ferentemente e posti sulla 
parte alta dell'apparecchio. 
All'inizio «Simon» emette 
una nota sola ma. a mano a 
mano che il giocatore riesce 
a riprodurre i vari suoni sen¬ 
za sbagliare, il numero di 
note emesse si incrementa di 
una. 

Tutto questo è stato ripro¬ 
dotto sul Commodore ed il 
gioco può dirsi identico al¬ 
l’originale per quanto con¬ 
cerne la sua meccanica. 

1 quattro settori circolari di 
Simon sono sostituiti dai 
quattro tasti funzione del 


C64; inoltre, poiché detti set¬ 
tori (nel gioco originale) si il¬ 
luminano per facilitare il 
compito del giocatore, lo 
schermo del computer si co¬ 
lora differentemente a secon¬ 
da della nota emessa e, al 
centro dello schermo stesso, 
appare un numero che corri¬ 
sponde al tasto funzione in¬ 


teressato. 

Quando il giocatore sbaglia, 
il computer emette un suo¬ 
no che lo avverte dell’errore 
e gli indica poi il numero di 
note che è riuscito a mettere 
in sequenza. 

Attenzione però: il giocatore 
non può pensare troppo a 
lungo perché dopo un certo 
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Convenzione usata per la scrittura 
dei caratteri grafici - Simon 

= CLR HOME + SHIFT 
Numero di spazi 
1 spazio 

Rappresenta il codice ASCII dei carat¬ 
teri, per visualizzare il carattere basta 
impostare: ?CHRS(n.)160 corrisponde 
allo spazio 
CLR HOME 
Cursore a sinistra 
Solo alle linee 90, 100, 120, 140, 280 c 290 ho disegnato 
direttamente il carattere (Q+Shift e W+Shift) 


(els) 

(n spazi) 

0 

(176.96 ecc) 


(home) 

(Cs) 


Variabili usate nel programma Simon 


A (4,4) 

G 

G1$,G2$ 

M$ 

M 

S 


C,D,E,F 

H 

Al 

T 

J$ 

A,B 

P 


Tabella corrispondente alla tastiera 
Indica a quale giocatore va riferita la 
mossa 

Nomi dei giocatori 
Lettera corrispondente alla mossa 
Codice ASCII relativo a M$ 
Corrisponde al valore (pedina) da inse¬ 
rire nella tabella A 

Riga o colonna corrispondente alla let¬ 
tera di input 

Valori usati per aggiornare lo schermo 
Indica il tipo di verifica da applicare 
alla somma 
Somma parziale 
Somma 

Nome del vincitore 
Coordinate della scacchiera 
ASCII delle lettere da scrivere durante 
l’inizializzazione dello schermo 


Note a «Simon» 

Nelle istruzioni di stampa o di definizione di stringhe le 
diciture tra parentesi indicano rispettivamente: 

- CLR/HOME = tasti SHIFT+CLR/HOME 

- CRSR G = cursore giù 

- CRSR D = cursore a destra 

- CTRL n. = tasti CONTROL+n. dove n. è il tasto nu¬ 
merico specificato 

- C=x = tasti SIMBOLO COMMOE)ORE+x dove x è il 
tasto specificato 

- HOME = tasto CLR/HOME da solo 

- FI, F3, F5, F7 = tasti di funzione 

Se le combinazioni di tasti sopra descritte devono essere 
digitate più di una volta, è indicato subito dopo l’apertura 
della parentesi il numero di volte relativo. 

Nella riga 130 i caratteri (C) devono essere digitati così 
come sono. 


Descrizione del programma «Simon» 

Righe 10-20 viene preparata la matrice contenente le di¬ 
verse combinazioni di note; tali note vengono determina¬ 
te casualmente 

Righe 30-120 costituzione stringhe per il titolo animato 
Righe 130-160 intestazione e animazione titolo 
Riga 165 viene azzerato il buffer di tastiera 
Riga 170 aspetta che un tasto venga premuto per inco¬ 
minciare 

Righe 175-176 informa sul modo di giocare 
Righe 180-190 pulisce lo schermo e setta il SID 
Righe 200-220 esegue la sequenza di suoni 
Riga 225 azzera il buffer di tastiera 
Righe 230-240 richiede al giocatore la sequenza di suoni 
Righe 250-280 assegna un valore a seconda del tasto pre¬ 
muto 

Riga 290 se il tasto premuto non è uno dei quattro am¬ 
messi torna a 240 

Riga 300 se il tasto premuto corrisponde ad un suono 
sbagliato, va alla routine di errore 
Righe 310-320 esegue la sequenza impostata dal giocato¬ 
re 

Righe 1000-1300 a seconda del suono da eseguire assegna 
diversi valori per il colore dello schermo, la frequenza 
della nota, il numero corrispondente al tasto di funzione 
da premere e il colore di tale numero 
Riga 1400 emette un suono che segnala l’errore 
Riga 1410 stampa il messaggio relativo al numero di note 
che si sono riuscite a mettere in sequenza 
Riga 1420 pulisce lo schermo, punta ad una nuova se¬ 
quenza di note e torna all’inizio del gioco 
Righe 1500-1520 routine che emette il suono, colora lo 
schermo, stampa il numero relativo al tasto di funzione 
da premere. 



















Listato Simon 


5 REM + SIMON PER COMMODORE 64 + 

6 REM + ROBERTO ANGLBSIO 011/616128 + 

10 PRINT"(CLR/H0ME) (2 ORSE G) (9 CRSR D)PLBASB WAIT.DIMM ( 50,30) 

20 PORR»ITO50:PORJ-1TO30:SE(K,J)-INT(RND(0)*4)+1:NEXTJjNEXTK 
30 P|(1)«"(CTRL 8) (4 C-B)(2 CRSR D)(C=B)(2 CRSR D)(C-B)(2 CRSR D) (CTRL 9) 
(C-B) (CTRL 0) (2 CRSR D) (4 C-B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)" 

40 B$(1)-"(C»B)(5 CRSR D)(C-B)(2 CRSR D)(2 C-B)(CTRL 9)(2 C-B)(CTRL 0) 

(2 CRSR D) (C-B) (2 CRSR D)(C»B)(2 CRSR D) (2 C-B)(CRSR D)(C-B)" 

» C|(1)-"(4 C-B)(2 CRSR D)(C«B)(2 CRSR D)(C-B)(2 CRSR D)(CTRL 9)(C-B) 

(CTRL 0)(2 CRSR D)(C-B)(2 CRSR D)(C«B)(2 CRSR D)(C-B)(CRSR D)(2 C«B)“ 

60 Df(l)«"(3 CRSR D)(C-B)(2 CRSR D)(C«B)(2 CRSR D)(C«B)(2 CRSR D)(CTRL 9) 

(C-B)(CTRL 0)(2 CRSR D)(C-B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)(2 CRSR D)(C«B)" 
70 E|(1)-"(4 C-B)(2 CRSR D)(C«B)(2 CRSR D)(C-B)(2 CRSR D)(CTRL 9)(C-B) 

(CTRL 0)(2 CRSR D)(4 C-B)(2 CRSR D)(C-B)(2 CRSR D)(C=B)" 

80 P|(2)-"(CTRL 6)(CTRL 9)(4 C-B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)(CTRL 0)(C-B) 
(CTRL 9)(2 CRSR D)(4 C-B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)" 

90 B$(2)« w (CTRL 9)(C-B)(5 CRSR D)(C=B)(2 CRSR D)(2 C-B)(CTRL 0)(2 C-B) 

(CTRL 9)(2 CRSR D)(C=B)(2 CRSR D)(C-B)(2 CRSR D)(2 C-B)(CRSR D)(C»B)- 
100 C*(2)-"(CTRL 9)(4 C-B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)(2 CRSR D)(CTRL 0) 
(C-B)(CTRL 9)(2 CRSR D)(C-B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)(CRSR D)(2 C-B)« 
110 D$(2)-"(CTRL 9)(3 CRSR D)(C=B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)(CTRL 0)(C«B) 
(CTRL 9)(2 CRSR D)(C-B)(2 CRSR D)(C«B)(2 CRSR D)(C-B)(2 CRSR D)(C-B)" 

120 E|(2)-"(CTRL 9)(4 C-B)(2 CRSR D)(C-B)(2 CRSR D)(C«B)(2 CRSR D)(CTRL 0) 
(C-B)(CTRL 9)(2 CRSR D)(4 C-B)(2 CRSR D)(C-B)(2 CRSR D)(C=B)" 

130 PODI53280,6SPRINT" (CLR/HOME) ( 17 CRSR G)(10 CRSR D)(C) DIR BBSTE 1984"! 
I-2ID-1 

140 PRINT"(6 CRSR G)(13 CRSR D)(CTRL 9)(CTRL 4) HIT ANY KEY (C«7)(CTRL 0)"| 
150 PRINT"(HOME) (4 CRSR G) ":D—D:I=I+D 

160 PRINTSPC(6)P|(I)sPRINTSPC(6)B|(I):PRlNTSPC(6)C|(I)xPRINTSPC(6)D|(I)* 
PRINTSPC(6)E$(I) 

165 POKE 198,0 

170 PORT-ITO30 :GBTAf:IPA$-""THBNNEXT: GOT0150 

175PRINT"(CLR/HOME)(2 CRSR G)(5 CRSR D)PER SCORARE USARE I TASTI DI" 

176 PRINT"(CRSR G)(5 CRSR D)PUNZIONE 'PI' 'P3' 'P5' 'F7'":FORT-1TO2000:NEXTT 
180 PRINT" (CLR/HOME) " : SI-54272:PH-SI+1 : W-SI+4: A-SI+5:H-SI+6 :L-SI+24:S[-1 : J«1 
190 POKEL, 15:POKEA,0:POKBH, 160 
200PORP-1TOJ:RO=1 

210 ONSB(K,P) QOSUB1000,1100,1200,1300 
220 NBXTP 
225 POKE198,0 
230 PORP-1TOJ 

240 PORR-ITO500:GETAl:IPA|»""THENNBXTR: GOT01400 

250 IPA$« B (P1)"THENN=1:GOTO300 

260 IPA|="(P3)"THBNN=2:GOTO300 

270 IPA|*"(P5)"THENN-3:GOTO300 

280 IPA|«"(P7)"THENN«4:GOTO300 

290 NEXTR 

300 IPSE(K,P)<>NTHEN1400 
310ONNGOSUB1000,1100,1200,1300 
320 NEXTP:PORT-ITO200:NEXTT:J-J+1:QOTO200 
1000 SC-7:SD«30:NR=49:SP-0:GOT01500 
1100 SC-5 J SU-40:NR-51 :SP-0: GOT01500 
1200 SC-2:SU-50:NR-53:SP-1:GOT01500 
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Listato Simon 

1300 SC*6130=60:NR=5 5:SF=1 : GOT01500 

1400 POKEFH, 10 tPOKESI,50 :POKEW f 33:FORT»1TO200 sNBXTT :POKEW,0 
1410 PRINT"(CLR/HOME) (8 CRSR (?) HAI MESSO 15 SEQUE5ZA"J-1 , '50TB! "i 
FORT* ITO 1500:5EITT 

1420 PRI5T"( CLR/HOME )":KasK+l:jci: QOTO200 
1500 P0EB55795,SF:P0KB1523,5R 

1505 3 1 ,,P0K3W, ,POKB53281,SC,I^KE53280,SC»PORT=. 1TO200, 

1510 IPRO»1THE5PORT«1TO200:5EXTT:ROb0 
1520 POKB53281,0*P0KE53280,0*POKE1523,32:RETUR5 


intervallo di tempo, se nes¬ 
suno dei tasti funzione è sta¬ 
to premuto, il computer si 
comporta come se si fosse 
commesso un errore e si de¬ 
ve ricominciare. 


«Black Box» 
sul VIC 20 

V i proponiamo una bella 
soluzione di «Black 
Box», gioco di riflessione al¬ 
la scoperta delle leggi della 
natura, proposto su Personal 
Computer n. 2. nella versio¬ 
ne per Vie 20 dell’amico 
Fulvio Forti di Novate Mila¬ 
nese. Più che di una soluzio¬ 
ne si tratta in realtà di uno 
studio con tanto di bibliogra¬ 
fia (in lingua inglese: E.W. 
Solomon: Black Box Game 
Book. Strategy Games 
Pubi., London, 1977), in cui 
sono riportate tra l'altro le 
regole originali che noi ave¬ 
vamo lievemente semplifi¬ 
cato nel caso di deflessioni 
sul bordo della scatola nera. 
Bene, note le leggi di rifles¬ 
sione, deflessione e assorbi¬ 
mento dei raggi che - lancia¬ 
ti all'interno della scatola ne¬ 
ra - servono a darvi un’idea 
delia disposizione degli ato¬ 
mi in essa, si tratta soltanto 
di fare un numero sufficiente 
di prove per confermare le 
proprie congetture. Nelle 
due figure allegate sono ri¬ 
portati esempi di queste leggi 
nonché la numerazione delle 
caselle di ingresso dei raggi 
sulla scacchiera 8x8 su cui è 
stato programmato il gioco. 
Per comunicare al Personal 


Listato Black Box 

10 PRINT" V >: 2QQQ(ÌQ II TAB( 5) "SCATOLA NERA" 

20 PRINT"QQQ"TAB(9 ) II LI" 

30 PRINT"QQQ"TAB(5)"FULVIO FORTI" 

40 F0RK= 1TO5000lNEXTK 

50 N=0iHV=7746tC=38466tSS=" S3 3 3J3J3 33in3QQQ " 

60 GOSUR400tGOSUB500 

70 GO3UB700sINPUT"3C0SA GIOCHI]." $E$ 

80 IFE$="I"THENGOSUB300i GOTO70 

90 IFE$="C"THEN190 

100 E=VAL(E$)iIFE<1ORE>32THEN70 

110 N=N+1 iIFN>15THENGO3UB700jPRINT" 21TROPPI TENTATIVI 
!"tF0RK*=1TO20001 NEXTKiGOTO320 
120 GOSUB1000 

130 IFU=0THENU$="ASS"iF0RK=1TO800 sNEXTK: GOT0160 
140 IFU=ETHENU$="RIF"*F0RK=1TO800sNEXTK: GOT0160 
150 U$=STR$(U)tU$=" "+U$:U$=RIGHT$(U$,3) 

160 E$=" "+E$:E$=RIGHTS(E$,3) 

170 S$=S$+"£"tPRINTS$* 

180 PRINTES"72"U8:GOTO70 
190 FORJ=1T04 

200 K(j)=HV+S(j)-INT(S(j)/l0)*10+INT(s(j)/l0)*22 
210 NEXTJ 
220 F0RJ= 1 T04 

230 IFPEEK(K(j))=42THEN250 

240 J=4tGOSUB700jPRINTTAB(5)"HAI PERSO !"|GOTO270 

250 NEXTJ 

260 GOSUB700iPRINT"HAI VINTO IN"N"TIRI" 

270 F0RJ=1T04 
280 POKEK(J),42 
290 POKE30720+K(J),2 
300 NEXTJ 

310 FORJ=1TO800jNEXTJ 

320 GOSUB700sPRINT"VUOI RIPROVARE (S/N)?" 

330 GETA$sIFA$=""THEN330 
340 IFA$="S" THENRUN 50 
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la direzione dei propri tenta¬ 
tivi è sufficiente infatti indi¬ 
care un numero compreso 
tra 1 e 32. essendo da ciò 
implicito anche il verso 
prescelto. 

Per inserire un asterisco ad 
indicazione di un atomo del¬ 
la molecola (soltanto al fine 
di aiutare le proprie conside¬ 
razioni) bisognerà digitare I: 
con lo stesso comando si po¬ 
trà togliere un atomo mal 
piazzato. Con C infine si 
chiede al Personal di conclu¬ 
dere il gioco, controllando se 
tutti gli atomi piazzati sono 
al posto giusto (condizione 
di vittoria) oppure no. 

È appena il caso di dire che 
il gioco si svolge in solitario 
contro il Personal che 
nasconde gli atomi (righe 
400-470 del listato), che il 
programma gira sul VIC 20 
in configurazione base e che 
utilizza un algoritmo di nu¬ 
merazione delle caselle lieve¬ 
mente differente da quello 
descritto, che però è traspa¬ 
rente al giocatore, in quanto 
è «tradotto» prima di essere 
presentato a video. I simboli 
grafici riportati nel listato so¬ 
no specificati accanto ad es¬ 
so. 


Strategia per 
scacchiera 
con «Othello» 
sul VIC 20 


D i origine - si dice - 
giapponese. Othello è 
uno dei piu interessanti gio¬ 
chi di strategia per scacchie¬ 
ra di recente invenzione. 
Noto anche come «Rever¬ 
si». come tutti i grandi gio¬ 
chi ha il fascino di regole ele¬ 
mentari. al punto che la sua 
pubblicità (in Italia è distri¬ 
buito dalla Clem Toys) parla 
di «un minuto per imparar¬ 
lo. una vita per diventare 
campioni». 

Su una normale scacchiera 
8x8 si inizia a giocare dispo¬ 
nendo al centro quattro pe¬ 
dine in quadrato, due del co¬ 
lore di un giocatore e due del 
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350 

360 

400 

410 

420 

430 

440 

450 

460 

470 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 


Listato - Black Box 


IFA$= "N"THI!NPRIN'i'"S?" : END 
GOTO 3 30 
F0RJ= 1 T04 

X(j)=INT(RND(l )*8+1)#10+IN T (RN D ( 1 )*8+1 ) 
F0RK= 1T04 

IFX (J)=S (K) THENK=4t GOTO410 

NEXTK 

S(j)=X(j) 

NEXTJ 

RETURN 


SCATOLA NERA **" 

Q 33322222" 

21098765" 


PRINT 
PRINT 
PRINT' 

PRINT 
PRINT 
PRINT 
PRINT' 

PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINTTAB(II)" 
F0RK=1TO15 
PRINTTAB(II)" 
NEXTK 

PRINTTAB(II)" 

RETURN 


.24’ 

,23’ 

, 22 ' 

, 21 ' 

, 20 ' 

.19’ 

, 18 ' 

,17' 


91111111 " 

0123456" 

SQQ"TAB(13)"BNT 


USC" 


PRINT" SQQQQQ.QQQQQQQQQQQQQQQQ " ; 

FORK=0TO43 

P0KE8142+K,32 

NEXTK 

RETURN 

GOSUB700:INPUT"C00RDINATA ORIZ. "}H$ 
H=VAL (H$) 

IFH>8ANDH< 17 THKNH=H-8 j G0T08 50 
IFH>24ANDH<33THENH= 33-H » G0T08 50 
GOTO800 

GOSUB700:INPUT"COORDINATA VERT. "}V$ 
V=VAL(V$) 

IFV>0ANDV<9THEN900 

I FV> 1 6ANDV<25THENV=25-V: GOTO900 

GOTO850 

GOSUB700:INPUT" SIMBOLO (*,.)";R$ 
R=ASC(R$) 

IFR=420RR=46THSN940 




















Listato - Block Box 

930 GOTO900 
940 P0KEHV+H+V*22,R 
950 POKEC+H+V*22,6 
960 RETURN 

1000 IFE<9THENP=E*10:A=1 :B=10:GOTO1040 
1010 IFE>8ANDE<17THENP=E+82:A=-10:B=1jGOTO 1040 
1020 IFE>16ANDE<25THENP=(26-E>¥10-1 jA=-11B=10:GOTO1040 
1030 P=»33-2*A=10*B=1 
1040 X=AjY=B 
1050 F0RJ=1T04 

1060 IFP+X=S(J)THENU=0:RETURN 
1070 NEXTJ 
1080 FORJ=1T04 
109 0 IFP+X +Y< > S(J)TH2N 1120 
1100 J=4 J G0SUB1240s IFF= 1 THENRETUHN 
1110 GOTO1190 
1120 NEXTJ 
1130 F0RJ=1T04 
1140 IFP+X—YOS(j)THEN 1170 
1150 J=4: G0SUB1240 :IFF= 1THENRETURN 
1160 A=Y»B=ABS(X): GOT01040 
1170 NEXTJ 
1180 GOT01220 
1190 F0RJ=1T04 

1200 IFP+X-Y=S(j)THENA=-X:GOTO1040 
1210 A=-Y> B=ABS (X) » G0T01040 
1220 P=P+X t G0SUB1240 s IFF=1THENRETURN 
1230 GOT01040 

1240 IFP/ 10-INT (P/ 10)=0THENF» 1 iU«=P/l0tRETURN 
1250 IFP>90THENF«=1 jU=P-82«RETURN 
1260 IF(P+1)/10-INT((P+1)/10)=0THENF=1 iU=26-5P+1)/10iRETURN 
1270 IFP<9THENF=1iU=33-P:RETURN 
1280 F=0jRETURN 



Simboli grafici utilizzati nel listato Black Box 


9 SHIFT + CLR/HOME 

Q CRSR in basso 

2 CRSR a destra 

S HOLIE 



suo avversario. La caratteri¬ 
stica di queste pedine è di es¬ 
sere bifronti, cioè colorate su 
due lati con i colori dei due 
contendenti (come certi 
biscotti che si mangiavano 
da bambini...). La «mossa» 
consiste nel deporre una pe¬ 
dina del proprio colore su 


una casella libera, a patto 
che «prenda in mezzo» al¬ 
meno una pedina avversa¬ 
ria, che viene immediata¬ 
mente girata e cambia dun¬ 
que colore. Se non è possibi¬ 
le una mossa di questo tipo 
si è costretti a «passare». Per 
controllare se una mossa fa 


cambiare colore a qualche 
pedina avversaria, bisogna 
esplorare tutte le direzioni 
(anche diagonali!) a partire 
dalla posizione giocata, e ve¬ 
dere se c’è qualche pedina (o 
gruppo di pedine) avversaria 
che risulti presa in mezzo. 

È chiaro perciò che i quattro 


angoli della scacchiera sono 
posizioni di tutta sicurezza (e 
di grande interesse strategi¬ 
co), perché è impossibile far 
cambiare ad essi colore. Il 
gioco prosegue in maniera 
imprevedibile, perché ad 
ogni mossa cambiano colore 
molte pedine (TUTTE quel¬ 
le che soddisfano le regole) e 
tra un colpo di scena e l’al¬ 
tro si arriva a riempire tutta 
la scacchiera, oppure ad una 
posizione in cui nessuno dei 
due avversari dispone di 
mosse valide. Il risultato fi¬ 
nale, allora, è dato dal nu¬ 
mero di pedine del colore 
dei due contendenti: si va da 
uno schiacciante 64-0 (63-1, 
e cosi via) ad un risicato 
33-31 o addirittura alla pan¬ 
ia 32-32. 

Non pretendiamo certo qui 
di esaurire la teoria di Othel- 
lo, che tuttora vede migliaia 
di giocatori impegnati in tut¬ 
ta Italia ad allenarsi per il 
campionato italiano che 
apre le porte ai mondiali 
(dominati dai giapponesi, 
ma con brillanti piazzamenti 
dei nostri rappresentanti): vi 
suggeriamo soltanto, se do¬ 
po un apprendistato su que¬ 
sto gioco vi interessa l’attivi¬ 
tà agonistica, di mettervi in 
contatto con la Clerr. Toys a 
Recanati (AN). 

Sul listato dell’infaticabile 
Vincenzo Leto di Pisa c’è 
poco da dire: si gioca in due 
avversari umani (interessan¬ 
te sarebbe pure giocare con¬ 
tro il computer, ma è un af- 
far serio da programmare), 
scegliendo il colore delle pro¬ 
prie pedine. Le mosse vanno 
comunicate alla macchina 
specificando le coordinate 
della casella «di arrivo» della 
pedina. Il vantaggio di gioca¬ 
re a video anziché su una 
scacchiera sta tutto nel fatto 
che i controlli sulla validità 
della mossa, ma soprattutto 
le pedine avversarie da «gira¬ 
re» sono appannaggio del 
Personal, laddove molti 
principianti commettono er¬ 
rori che falsano la partita. 
Alla fine, la vittoria di uno 
dei due giocatori è celebrata 
visivamente e acusticamente 
per mezzo della «Bourrée» 
di J.S. Bach. (L.F.) 
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Listato Othello 

i FQKE36873.• i 12 F.RIKT" ^m»W»Ì4yp^2THiLLQ^a 

1© PRINT M MW*Ì*MMSI V.LETO" " . 

15 . Olili —u ■ 0 , 13 NO. I 1TQ27 REFUiil.i ; Jr_• l ... £.. - : "i 02 :J Nt ... • 1 

i-J Li-. ! J 2J3; .... . _c. .• <__• .•*.*!' , 21 .■ 2*sj' i al 33*à JBj' . i.. I . ù-03, 232, 28 1' , 228 

35 -BftTft?.- ... i93,201.2*7,201,195,223,219 
^3a,iimc^c7)aSc>:x 3 l ^ j . 

35 FQRI-0TO9". FQRJ-8T83 : SC?.< I, J>*-i : NEXTJ, I : U=38512 

fi -ì - ’* -f — >> cf»3,-“ cf ;^4> =;;j§:. : c&s.) -"«*•;& : - n$= a * 

45 lTÙRI ~Ì5TQ03li;P—i : P0KE3fcS7@y * ‘ NEH? > QKE36879-- 2$ 

50 INPUT“ 3KKHDMMI1■ NOME " ; F\* ■ GOSUB520 

■X 1 IFLEH \ ItT 910 THEHRT~L 37 T VJF£ , j,£0 _ _ __ 

m OOSUB560 - OHK 41 FCO ORO7THEN60 ^ ‘ J■ 

63 fj*=C$<C>+:' "+f‘.S C*<C>*' sp : XNPv f "aa*SUS8»»?à2"' NOME ' : . S* ;OOvL520 

70 IFLEN< B$ >>Ì0THENfi*==i_EFT * < B* , 10> 

r'D gj 30E568 : D=H5i ' IFD< 1 ORO70F5D*CTHEN75 

80 B$«*Ct CD >* * ! ‘ +B$ = I FC= 1 THENC-0 

1-3 _ I i~ B— 1 i HEND—0 

9@ G**" ;- ■ I ■•(. £ ■ +-+ .p , t .. )» :R$-» } I ) ! i | j r i ” : PR!NT"3*5@B9(fcàlS 

-f— t— i ,: 

95 F0RI-1T07: FRINIR* GRINTE# =NEXTI : PRINTRt- : FRINT" • —* l. . *..* - i-.. — 

;i00 FRINÌ 'PIsQSi$«@itii?i5 i 2 3 4 5 6, 3' ' F'kINI 'fSysrówiSRifiiìiiii 

ti 

105 PQKE36875 •* 8 - PQKE3687S, 15 

110 FORI»4T05 : $C?ì< I, I >-Ii : SC&C 1,9-1 >=€ ■ NEXTI 

1 ìv *'UR. >: .~t> ì >J20-- ieri i-o £t =37C1 e 2TEP2 ; POKE38408+ 7+22*. , i ' F"jh ki~68U+'T-i-22#A ■ j.6 NEa VV 

,x 

ic-t-: i •-•-■•.«.-e ,> j, L ir UKc3c</ x , , ^ oKE-BoOro, D . OKEoGi ì9. Zi ' POkc^l^s, 30 P0KE7787,3* 

125 FORMI =1T069 

1 3 1 -- 1 ORJ^ Fr 10 : Ui'. i.3 ■ Fuk^.j ,, 33 ' i-.|3NT J F1 NT jsiiSMfPtèSajIOOF; - 

135 OETMf : OOSUB530 ’ IFNf* " !, TMÉH135 

146 WfVBL<tlf > I Fri< 1OEFDSTHEN133 

145 Bl=7813+<W-lMK44 i POKED 1 . PEEKCBi)+123 

156 Oh. , _¥ ' GOSUL340 ' IFiit= ''7nEN150 

155 2=VRLC7*> -* IFZ<1OR2>8THEN150 

1.60 D2*i* ■!■' 2"*l >sN2 : P0KED2, PEEKCL ! S+123 

165 IFSCK<W,2jO-1THENGQTO550 

i“5 FCRL-W -.iTOW+i ' FQRK*2-iT0Z-'i IFL^NDfc-ZTHENlSS 
138 IFSCa< L, K><>-1THEN198 
.130 ì'iEaTK., L : GÙ 10533. 

190 SCJi<U,2>»CiP0KEU+2*Z+44#W-23,CiE=-Ì '• 0= 1' 00SUB710 : rORI 1 T0w+1 : F0RJ=Z-1T0Z+1 

105 1* ; i •-NilNz'J --3.1 MLriE^i : GQTC21S 
200 I FSCJi vi, J > -DTHENGOSUB680 

_' _ 

i 10 NEXTJ, I • FT=R* • = B*»P# : G*C *• G-D - - G0SÙB555 : NEH IH 1 • RESTORE 

2ig , 0 FQRI -j. FJQ8 1-FOEJ”1JX>3 - IFSOl CI , J9 «CTHFN ^kN-1 

220 NEXTJ, I :FDftF*7705TO7722- POKER, 32:NÈXT>PRINT"®»»Wtìl ,, fl*" ==>"K «SSaMU^'Bf 11 =~0 

1 ù4’"ì* _ . 

225 IFK=32TMEN245 

2.58 IFKC327 HENGJi=2£ C-L 

235 E=1 : FGRI = 1T027 ^ FORJ=*38425T033442 = POKEJ+GX, C : NEXTJ 

240 Noi .Lhi/. c"WKc.v6Gi'3j. fì.'i'• F®_C • C*E ■ : rORN*"± • 2188 : NtiXTN.- x PUKùOLw -■ <- 32 • ■.■238 

245 PRiWtSdS PBRTITfì PBTTR Wm” i 

05Ò FRINÌ CONTINUATE CC/N>?", 

255 GETL* : TFL*= !t, 'THEN255 

zi w i - .. i nu.pt -■ _■ 

265 IFL*«"N’’TNENmiNT- h r»l«ISia»»l»l®aiàSeiflOIS ,: -: P0KE36379, 1 1 8 = 'P0KE3S878,8 : END 

£F0_Q0TQ255 

510 POKE38878,15 P0KE3S874,128+1 NT fRHD<1>*127> : RETURN 

528 r RI Ni £&£&&&&& r OR I ~ 1 i 'J. . i_N, TAL » 2 I - 1 >¥3+212$ 21124 *«%!.<*.» I I"* 2» NE.. Ti : Ì5ETL 

RN 

5gg ' §33005,2 FORO 170200 N2H7 rOKEPOQQiS. 1 ; T*CRL i »lTQ260' ! NEXT.rRETlÌRN 

540 P0RE38597,2 :F0RL»1 TO203:NEXT = POKE38307,4 4F0RL*1 TO200•NEXT ; RETURN 

w3. : t.Kj,.•;. •» 'Sii M0 w, i cNRiihi 4. ^ : : 4[.0 ! 3i?Z20 .• ‘ORL?ITO 1808 : NEXT : ; : --T 
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Listato Othello 


M ; -0010135 

'r* w’ ' i 0^"'■ 1 — . — ■ I— L-, , .. >L ■■ . - - . - *.-- Ù> >— ■ . . .ù tu. . ~. W . . i u . I i ■ L ' 1 ' U., 1 I -■ i" ^ 

560 FRlNT !, £i?MgIS^^ COLORE VUOI?" 

jUù _'L. i HÌ I r H3 ~ i Hujiv- v __ . _ 

578 HK-OSG < H* >-48■RETURN 

et9 Ò«I+£ B»J+E" ‘ -- - - 

£45. u -~a * HIINfì^ri+E .• • - ... - ;■ 

628 IFSCXCfU B>=-1THENRETURN 

§2]| FQRK ; . ?CKEU + C2*<K~I+J! .■ - 22» ■ £** • '■■ 1>.'P OCSLìjE>v08 NÉ 

XT ^ RETURN 

638 R«s x +E 

635 IFSCX < fi , J >«ETNE Nfi=*fi+E : G0TC635 

j . . 

645' F0RK= ITOfì-ESTEFE • SC3<K.> Jj-C : P0KEU*2#J+44#K-23'.. C : 003UB73@:NEXT ■ RETURN 

63S n~;+E I—J-Z 

655- IFSCfcCA,B>»BTHENfì-fi+E*8»J?"*E ; 30T0633 ' ^ - :r 

ULU » U. : '- : ~1 • ric.NRETJRN 

665 FQRK» I TOfì-ESTEFE • SCTKK, J+ ì ~K >«C J POKEU+2# (.1+ J > + 42*K~23, C = G0SUB73S - - NEXT : RETURE 

675 I FSCfc < I, B > -BTHENB-B+E ■ G0TD675 

USO ìi’ _ I -■ 8;=-i!HEN.<E7 

685 FORK* JTOB--ESTERE:SC» < I> K> =C : P0KEU+2*K+44*I-23,C ; OOSUB700•NEXTsRETURN 

. -. . _ .• I . . I- L- I Ur ■ 

710- FORF-240TO255 • P0KE3SG7SU F : NEXT : PÓKE36875,0 • RETURN 

r^.;. rsu" . ,u-»uur:'ZF~: ; . ..,-;.:-w7u.r• nekt • fqkessgzs,s • re :urn 


Il controllo 
del cursore 

I l nuovo comando che vi 
proponiamo è una sem¬ 
plice routine per il posizio¬ 
namento del cursore in qua¬ 
lunque parte dello schermo, 
senza usare dei trucchi di 
programmazione BASIC co¬ 
me quello che segue: 

100 RS= «(premere il tasto 
di cursore a destra 39 vol¬ 
te)». 

110 D$= «(premere il tasto 
di cursore in basso 23 vol¬ 
te)». 

500 C-22:R=15: REM 

MUOVE IL CURSORE 
ALLA COLONNA 22, RI¬ 
GA 15 

510 M$=LEFT$ (R$, C) + 
LEFTS (D$, R) 

520 PRINTMS. 

In questo modo (ovviamen¬ 
te le righe 510 e 520 potreb¬ 
bero essere chiamate come 
subroutine, aggiungendo un 
GOSUB alla linea 500 e un 
RETURN alla linea 520) si 
ottiene il posizionamento del 
cursore sopra descritto, ma 
non è una brutta tiritera? 
Ecco invece una ottima so¬ 
luzione di cui forniamo il li¬ 
stato in Assembler che voi 


potete immettere senza pro¬ 
blemi. La forma fornita è 
adatta per un PET con il 
BASIC 4, con uno schermo 
piccolo. Le versioni per gli 
altri PET lavorano esatta¬ 
mente allo stesso modo e 
qui troverete anche dei 
DUMPS in esadecimale per 
i possessori delle differenti 
versioni. 

E vediamo ora i dumps esa- 
decimali per le varie versioni 
del PET. 

Schermo largo, BASIC 4 

033A 20 F5 BE 20 D4 C8 
E0 18 

0342 90 03 4C 00 BF 86 D8 
20 

034A F5 BE 20 D4 C8 E0 
28 B0 

0352 FI 86 C6 20 71 E0 60 
Schermo piccolo, BASIC 4 
033A 20 F5 BE 20 D4 C8 
E0 18 

0342 90 03 4C 00 BF 86 D8 
20 

034A F5 BE 20 D4 C8 E0 
28 BO 

0352 FI 86 C6 20 7F E0 60 
80 colonne BASIC 4 
033A 20 F5 BE 20 D4 C8 
E0 18 

0342 90 03 4C 00 BF 86 E0 
20 

034A F5 BE 20 D4 C8 EO 
50 BO 

0352 FI 86 E2 20 5F EO 60 


Controllo 


033A 20 F5 BE JSR $BEF5; 

033D 20 D4 C8JSR SC8D4; 

0340 EO 18 

CPX £$ 18; 

0342 90 03 

BCC $0347: 

0344 4C 00 BF JMP SBF00: 

0347 86 D8 

STX $D8; 

0349 20 F5 BE JSR $BEF5; 

034C 20 D4 C8 

JSR SC8D4; 

034F EO 28 

CPX £$28; 

0351 BO FI 

BCS $0344; 

0353.86 C6 

STX $C6, 

0335 20 71 E0 
0358 60 

JMP $E071; 
RTS 


BASIC 3 

033A 20 F8 CD 20 78 D6 
E0 18 

0342 90 03 4C 03 CE D8 
20 

034A F8 CD 20 78 D6 E0 
28 BO 

0352 FI 86 C6 20 5D E2 60 


cursore 

Controlla se trova una virgola 

Prendi un parametro di 1 byte 
mettilo in x 

Confrontalo con 24 (num. di 
righe) 

Se OK il carry on 

Se no messaggio «Syntax Er¬ 
rar» 

Salva il primo parametro in £ 
D8 

Controlla per seconda virgola 

Prendi il prossimo parametro 

Confrontalo con 40 (num. co¬ 
lonne) 

Se maggiore messaggio «Syn¬ 
tax Errar» 

Se OK salva il secondo param. 
in £C6 

Posiziona il cursore 


Come si utilizza il tutto? 
Semplice! I dati che voi ave¬ 
te immesso ora risiedono nel 
Buffer della seconda unità 
nastro. Per usare il nuovo 
comando, in qualunque mo¬ 
mento, basta inserire questa 
linea nel vostro programma: 
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250 SYS 826, 22, 15 
Dove 250 è il numero di ri¬ 
ga di programma, 22 è la co¬ 
lonna e 15 è la riga dello 
schermo dove si vuole met¬ 
tere il cursore. Quando cal¬ 
colate la posizione assumete 
che l’origine (0,0) sia in alto 
a sinistra sullo schermo. È 
una buona norma non cer¬ 
care di mettere il cursore sot¬ 
to la riga 24 perché ciò po¬ 
trebbe causare uno scrolling 
accidentale. 

Grafica 
ad alta 
risoluzione 
col VIC 20 

di Walter Pistarini 

Q uesto articolo spiega 
come si può ottenere 
una grafica di 28160 (ven- 
tottomilacentosessanta!)pun- 
ti sul VIC, con una matrice 
di 176x160 punti (per i VIC 
con qualche espansione di 
memoria, per quelli senza 
espansione la grafica sarà 
«solo» di 19584 punti, su 
una matrice di 136x144 
punti). 

Il manuale del VIC parla di 
capacità di grafica ad alta ri¬ 
soluzione. C’è anche una se¬ 
zione che mostra come fare 
della grafica a 64x64 punti. 
Sfortunatamente, non è 

molto chiaro come gira il 
tutto. Lo scopo di questo ar¬ 
ticolo è di gettare un po’ di 
luce nella grafica del VIC. 
Per capire la grafica ad alta 
risoluzione bisogna prima 
capire come lavorano i ca¬ 
ratteri programmabili. Il 

VIC in realtà non ha un mo¬ 
do di lavorare «grafico», ma 
ha due possibilità che per¬ 
mettono di creare della grafi¬ 
ca. La prima e più impor¬ 
tante è la possibilità di cam¬ 
biare il contenuto del punta¬ 
tore che normalmente punta 
alla ROM contenente i ca¬ 
ratteri (diciamo meglio, le 
«informazioni» per costruire 
i caratteri) e farlo puntare in 
RAM. L’altra possibilità è 
che la grandezza di carattere 
può essere cambiata. 


Memorie video e carat¬ 
teri 


Prima di spiegare come que¬ 
ste due «opzioni» si combi¬ 
nino per ottenere una buona 
grafica, dobbiamo rivedere 
come i caratteri sono solita¬ 
mente mostrati sullo scher¬ 
mo. Prima di tutto facciamo 
un breve ripasso su cosa si 
intede per «memoria video» 
e cosa si intende per «me¬ 
moria caratteri» (character 
generator in inglese). 

Per «memoria video» si in¬ 
tende quella parte di memo¬ 
ria del VIC atta a contenere 
dei «codici» (un codice è 
lungo un byte) che dicono al 
VIC quale carattere si vuole 
vedere in un determinato 
punto dello schermo. Si po¬ 
trebbe dire che è la «fotogra¬ 
fia» di quello che vedete sul¬ 
lo schermo. C’è una corri¬ 
spondenza diretta (1 a 1) tra 
gli indirizzi (o posizioni) nel¬ 
la memoria video e le posi¬ 
zioni sullo schermo. Per fare 
un esempio: se avete un co¬ 
dice che indica la lettera «A» 
nella locazione 23 della me¬ 
moria video, questa lettera 
«A» vi sarà mostrata nella 
posizione 23 dello schermo, 
e cioè come primo carattere 
della seconda riga, visto che 
le righe sono lunghe 22 ca¬ 
ratteri. 

Quindi: Memoria video = 
foto del video. In un VIC 
senza espansioni o con l’e¬ 
spansione da 3K, la memo¬ 
ria video comincia all’indi¬ 
rizzo 7680. Se ci sono altre 
espansioni sarà a 4096 (nor¬ 
malmente). 

Per «memoria caratteri» si 
intende quella parte della 
memoria del VIC (normal¬ 
mente su ROM) che contie¬ 
ne le informazioni necessarie 
per «costruire» tutti i carat¬ 
teri disponibili sul VIC. Più 
esattamente diciamo che 
questa memoria dice al VIC, 
dato un certo codice (preso 
nella memoria video), quali 
punti dello schermo (detti 
PIXELS) bisogna «accende¬ 
re» o «spegnere» per mostra¬ 
re il carattere identificato da 
quel codice. 


Quindi: Memoria caratteri 
= foto dei caratteri disponi¬ 
bili. 

Ogni byte della memoria vi¬ 
deo è usato come un indice 
per trovare nella memoria 
caratteri le appropriate «in¬ 
formazioni». Nel mondo di 
lavorare normale, un carat¬ 
tere è costituito da 8 righe di 
8 punti ciascuna. Con la 
«opzione» che espande la 
grandezza dei caratteri ab¬ 
biamo 16 righe di 8 punti 
ciascuna. 

Il primo «codice carattere» 
che potete selezionare è 0 
(una @), e mettendo 0 nella 
prima locazione di memoria 
video dite al VIC prima di 
tutto che volete vedere il ca¬ 
rattere con il codice 0 nella 
prima posizione dello scher¬ 
mo e poi di andare a vedere 
nella memoria caratteri i pri¬ 
mi 8 bytes, che gli diranno 
quali punti accendere sul vi¬ 
deo in quella posizione. 
Questo perché ogni caratte¬ 
re, come già detto, è fatto di 
8 righe di 8 punti ciascuna, 
per cui il VIC avrà bisogno 
di 8 bytes di 8 bits ciascuno 
per sapere quali dei 64 punti 
(8 righe x 8 punti) che for¬ 
mano un carattere deve ac¬ 
cendere o spegnere. Ogni by¬ 
te della memoria caratteri 
definisce (con i suoi 8 bits) 
una riga di punti di un carat¬ 
tere. Se il bit è a 1 vuol dire 
che il corrispondente punto 
deve essere acceso, se è da 0 
il punto dello schermo deve 
essere spento. 

Provate, su un VIC senza 
espansioni, a battere: 

/ RUN STOP / RESTORE 

/ 

e poi: 

POKE 36879,62 
POKE 7690,0 

Il primo POKE serve a colo¬ 


rare di blu lo schermo, il se¬ 
condo mette a metà della 
prima riga il carattere con 
codice 0. Dovreste vedere 
una «@». Nella figura 1 po¬ 
tete vedere le relazioni tra la 
memoria video, la memoria 
caratteri e lo schermo. 

Se fate il POKE dei valori 
da 0 a 255 nelle prime 256 
posizioni della memoria vi¬ 
deo, tutti i caratteri possibili 
vi saranno mostrati in ordi¬ 
ne. 

Quello che voi vedete sullo 
schermo non sono i 256 ca¬ 
ratteri possibili del VIC, ma 
tutti i bits che sono messi a 
uno nei 2048 bytes che co¬ 
minciano all’indirizzo defini¬ 
to come memoria caratteri! 
(256 indici che identificano i 
caratteri x 8 righe x 8 punti 
= 16384 punti - 16384 bits 
= 2048 bytes x 8 bits). 
Dicendo al VIC che la me¬ 
moria caratteri è localizzata 
in RAM, si può controllare 
a programma quali punti 
«accendere» o «spegnere» 
sullo schermo. Questa è la 
maniera in cui si creano i ca¬ 
ratteri speciali. 

Caratteri e doppia al¬ 
tezza 


C'è ancora una importante 
osservazione da fare. Come 
tutti sanno, il video del VIC 
è fatto da 22 caratteri per 23 
righe, per un totale di 506 
caratteri visibili contempora¬ 
neamente. Come si fa a 
riempire uno schermo di 
506 caratteri con solo 256 
combinazioni a disposizione 
(visto che noi ovviamente 
vogliamo usare la grafica a 
tutto schermo)? Il problema 
è che i caratteri sono usati 
come «indici», per cui se si 
vuole utilizzare lo schermo 
in piena grafica avremo bi- 


Figura 1 

10 POKE 36879,62 

20 FOR 1-5120 TO 6143 : POKE 1,0 : NEXT 
30 POKE 7680,0 

40 POKE 36869, (PEEK (36869) AND 240) + 13 

50 POKE 5120,1 

60 FOR X - 1 TO 10000 : NEXT 

65 POKE 36869,240 

70 END 
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sogno di 506 indici. 

Il trucco è di usare i caratteri 
a doppia altezza. Questi ca¬ 
ratteri non cambiano la 
grandezza dei punti sullo 
schermo, cosicché ogni ca¬ 
rattere «copre» realmente il 
doppio dell’area di un carat¬ 
tere normale. Per cui 256 in¬ 
dici di caratteri a doppia al¬ 
tezza copriranno tanto 
quanto 512 caratteri norma¬ 
li. 


Utilizzo della memoria 
per la grafica 

Per vedere le cose sotto 
un'altra angolazione, lo 
schermo del VIC è largo 176 


punti (22 caratteri x 8 punti 
di larghezza ciascuno = 176) 
e alto 184 (23 righe alte 8 
punti ciascuna = 184), per 
un totale di 32384 punti 
(4048 bytes). I caratteri di 
grandezza doppia ci danno 
32768 punti (256 indici x 16 
righe x 8 punti), cosicché ab¬ 
biamo risolto tutti i nostri 
problemi. Giusto? Sbagliato. 
Il problema è la memoria 
che il chip del VIC può indi¬ 
rizzare. Come viene spiegato 
nel modulo di espansione, il 
chip «VIC» (e cioè l’integra¬ 
to che «gestisce» il video, al¬ 
l’opposto del Computer 
VIC), può indirizzare solo 
memoria da 4096 a 8191 


(da clOOO a clFFF in esade- 
cimale). E in questa memo¬ 
ria ci devono stare sia la me¬ 
moria video sia la memoria 
caratteri. Mentre questi 
4096 bytes sono sufficienti 
per contenere un set com¬ 
pleto di caratteri a doppia al¬ 
tezza di memoria caratteri, 
noi abbiamo ancora bisogno 
di prendere 512 bytes di me¬ 
moria video da questa stessa 
area (Ricordate? 22 righe x 
23 colonne = 506 caratteri, 
che arrotondiamo a 512). 
Diciamo subito, quindi, che 
non sarà mai possibile ave¬ 
re una grafica ad alta risolu¬ 
zione di 176x184 punti, ma 
al massimo otterremo 


176x160 punti, dando 3584 
bytes alla grafica e 512 alla 
memoria video. 


Gli indirizzi di memo¬ 
ria utilizzabili 


Abbiamo discusso finora la 
maggior parte delle informa¬ 
zioni che voi usate per fare 
della grafica sul VIC. Ci so¬ 
no ancora alcuni dettagli 
tecnici e compromessi con¬ 
cernenti l’ammontare di 
grafica e di memoria che ser¬ 
vono al BASIC. La memo¬ 
ria caratteri può cominciare 
ad una delle seguenti 4 loca¬ 
zioni di memoria RAM: 
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Programma 1: VIC con espansione da 3K 
Grafica ad alta risoluzione 


10 
10 
30 
40 
45 
50 
100 
110 
120 
200 
210 
220 
230 
240 
250 
260 
270 
280 
310 
320 
330 
340 

3 50 
360 
370 
380 
385 
390 
400 
410 
420 

4 50 
460 
480 
4 90 
4 95 
510 
6 00 
610 
620 
630 

1000 

1010 

1020 

1030 

1040 

1050 

1060 


S1LY A 
HuOvA 


LA FIHE CORROTTE 
PIVE A 4096 


CLB PER AVVERTIRE IL BASIC 
SEBORI A CARATTERI -«OBERO RIGHE 
NuHBRO CARATTERI - PuHTI VBRICALI 
SCELTA PATTORE DI SCALA 
DIVERRÀ» HEHORIA CARATTERI 


PBINT n DIHOSTRAZICME GRAPICA DEL YIC" 

PBINT"PC CLUB" 

POKEj,PEEK(55): PCKE 2 ,PEEK (56) :RE« 

POKE55,0 :REH «ETTE LA 

POK256,4096/256 
CIR : BEH 

HC*4096:HR*iO :REH 

nc»22:Pv=16 :reh 

PS*HRYPY/2-l :HEH 

REH AZZERA LA HEPORIA CHE 
POR X*CH to HC>«R^«C*PY-i 
PCKE 1,0 :SBIT 

REH. TtTTTI ORO REILA HEHORIA NON OSATA PER PARE IL BOBDO 
POR X«HC*NB*NC*PV TO 7679 
POKE 1,255: «EXT 

BEH SCBGIIE II PCBHATO DEI CABATT ERI A 8x16 
PONE 36867,PEEK (36867)OR i 

BT=PEEK (36879) AND 7 :BEH LEGGI LO SPONDO CORRENTE 

POR 1*0 TO NR*NC -1 :REH INDICI NELLA HEHORIA YIDEO 

PCKE 7680 *X,X 
POKE 384 00*X, BT 
NEXT 

REH RIEHPIE IL RESTO CON UN CARATTERE NON OTILIZZATO 

POR X*NR»NC TC 511 

POKE 7680*1,NR*NC 

PCKE 38400+X,BY 

NEXT 

REH DICE AL VIC IL NuMERC DI CARATTERI PER RIGA 

POK1 36866 , (PEEK ( 36866 ) AND 128 ) «-NC 

REH CAHBIA L'INDIRIZZO DELLA .HEHORIA CABATT BRI 

POKE 36869,(PEEK (36869) AND 240)♦HC/1024 + 8 

REH FORRuLA DELLA SINUSOIDE 

POR X*0 TO NC*8-1 

Y*INT(SF*SF*SIN (X/lO) *1) 

gosub 1000 

N p X m 

POR 1*1 TO 10000:NEXT:REH 
POKE55,PEEK (i) :PEH 

PCKE56,PEEK(2) 

SYS(5982^) :REH RIHETTY 

END 

YR=Y/PY 

CA=INT(X/ 8 )*1 NT (YR) *NC 
RI* (IR-INT (YR)) *FY 
BY*HC*CA*PV*RI 
BI=7- (X- (INT (X/ 8 ) *9) ) 

PCKE BY,PEEK(BY) OR ( 2 *BI) 

RPTUPN 


UN PO' PRIHA DI 
RIMETTE A POSTO 


FINIRE 
IL LIHITB 


HEHORIA 


A POSTO IL RESTO 


4096, 5120, 6144 0 7168 
(con un 12, 13, 14 o 15 negli 
ultimi 4 bits della locazione 
36869). La memoria video 
può essere in una qualunque 
delle seguenti locazioni di 
memoria RAM: 4096, 


4608, 5120, 5632, 6144. 
6656, 7168 o 7680 (con i 
bits da 4 a 7 della locazione 
36869 contenenti 12, 13, 14 
o 15, che controllano l’alli¬ 
neamento di 1024 in 1024 e 
il bit 7 della locazione 36866 


che controlla se si è allineati 
ai 1024 oppure ai 512). 
Come vedete, la stessa loca¬ 
zione di memoria seleziona 
sia l'indirizzo della memoria 
video, sia l'indirizzo della 
memoria caratteri. Per esse¬ 


re più pratici diciamo che 
per quanto riguarda la me¬ 
moria video, la selezione a 
4096 viene fatta facendo il 
POKE di 192 (che sarebbe il 
valore di un 12 messo nei 
bits da 4 a 7) nella locazione 
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10 

20 

«0 

50 

60 

65 

80 

85 

90 

100 

110 

120 

130 

190 

150 

155 

160 


172 
175 
180 
190 
200 
202 
205 
210 
215 
220 
230 
240 
250 
260 
270 
275 
280 
300 
310 
1000 
1010 
102 0 
1030 
1040 
1050 
1060 


Programma 2 - Grafica ad alta risoluzione 

PBIHT*GB APICI CC1 IL JOYSTICK S S1RZ1 ESPAHSIOHI» 

POKÉ 55,0:POKE 56,2° :®EH MUTI HEHOBIA AL BASIC 

DD= 37154:P1=37151:P2=37152 

X=lO:T=iO 

805120: IH*7 :REH HEHOBIA CARATTERI - «U»- BIGHE 

IOl7:PY»l6 : BEH HOHBBO CARATTERI - POETI Y ERIGILI 

BEH AZZERA LA BIHOBIA CABATTEBI 
POP I=HC to BC*HR*HC*PV—1 
POKE 1,0 :EE1T 

BEH TOTTI OBO VILLA HEHOBIA BOB OSATA PEB TABE IL BOBDO 
POH I*HC*1BYBC*PV TO 7679 
POKE 1,255: SEXY 

BEH SCEGLIE IL POBHATO DEI CABATTEBI A 8x16 
POKE 36867,PEEK06867)OH i 
BER POKE DELIA BBHOBIA VIDEO 
BY«=PEEK (36879) AHD 7 
POH I»0 TO BBYBC-1 
POKE 7680*1,I 
POKE 38400*1,BY 
BEIT 

BEH BIEHPIE IL BESTO COB'gl CABATTEBE BOB 
POR I=BB*BC TO 511 
POKE 7680*1,BB*BC 
POKE 38400*1,BY 
BEIT 

BER CAHBIA L»IBDIRIZZO DELLA HEHOBIA CARATTERI 
POKE 36866, (PEEK(36866) AHD 128)*BC 


1080 

1090 

udo 

ino 

1115 

ÌÌ20 


POKE 36869, (PEEK(36869) 

BEH LOOP PBIBCIPALE 
GOSUB 1010 
YB«Y/P? 

CA=IHT (X/8) *HT (YB) *BC 
BI« (YR-IHT(YB) ) *PV 
BY*HC*CA*PV^BI 
BI=7-(X- (IB^ (X/8) ♦ 8) ) 

POKE BY,PEEK (BY) OH (2fBI) 
GOTO 240 

REH LETTURA JOYSTICK 
POKE DD, 127: P*PEEK (P2) 
J0=-(P*0) 

POKE DD,255:P*PIEK(P1) 

ABD 8)*0l 
((P AHD 16)*0) 

ABD 4)*0) 

TBEB X»X*1 
TBEB X-X-l 
IP Jì*1 TBEB Y*Y*1 
IP J3=l THEB Y-Y-l 
IP Y>112 TBEB Y*112 
IP X>136 THEB X*136 
BETUBB 


ABD 240)*HC/1024*8 


AHD 128 


J r -((P 
J2~- 

J3-- 
IP J 
IP J2=l 




36869, per selezionarla a 
5120 il POKE è di 208 (un 
13 sempre nei bits 4-7), per 
6144 il POKE è di 224 (un 
14) e per il 7168 il POKE è 


di 240 (un 15). Questo per¬ 
ché normalmente il bit 7 del¬ 
la locazione 36866 indica 
Tallineamento a 512. Se si 
volessero i valori 4608, 


5632, 6656 e 7680, bisogne¬ 
rebbe fare anche un POKE 
a 36866 (POKE 36866, 
(PEEK (36866) OR 128)). 
Ai valori dei POKE sopra 


descritti bisogna aggiungere 
la selezione della memoria 
caratteri, semplicemente 
sommando un 12 (per me¬ 
moria caratteri a 4096) o un 
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REMarks - Programma 1 

30 - 

Salva in 1 e 2 il limite di memoria per il programma BASIC 

40 - 45 

Stabilisce un nuovo limite di memoria, che è sotto la memoria caratteri 

100 - 120 

Mettono a posto le costanti usate in seguito 

MC è la locazione della memoria caratteri 

NR è il numero di righe 

NC è il numero di caratteri per riga 

PV è il numero di punti verticali x caratt. 

FS è un fattore di scala per centrare la sinusoide 

Notare che NR*PV è il numero di punti verticali e che NC8 e il 
numero di punti orizzontali. 

200 - 220 

Loop che inizializza la memoria caratteri che useremo per la grafica, 
mettendo tutto a 0 

230 - 250 

Inizializza il resto della memoria caratteri mettendo tutti 1 

260 - 270 

Mette il formato dei caratteri a 8 x 16 

280 

Legge lo sfondo attuale 

310 - 340 

Fa il POKE dei numeri da 0 a 219 (153 per i VIC senza espansione) 
nella memoria video 

350 - 385 

Fa il POKE di un carattere non usato nel resto della memoria video 

390 - 400 

Cambia il numero di caratteri per riga (necessario solo per le versioni 
senza espansioni) 

410 - 420 

Muove la memoria caratteri nella RAM precedentemente preparata, (lo 
schermo apparirà restringersi a questo punto) 

450 - 49p 

Disegna la sinusoide, chiamando la subroutine di plot a 1000. 

Se si vuole utilizzare questo programma per altra grafica, basta mettere 
la vostra formula per le coordinate X e Y qui mantenendo ovviamente il 
GOSUB1000 

510 - 

Aspetta un po' prima di finire 

600 - 630 

Rimette tutto a posto e chiude 

1000 - 

Viene fatta una volta solo l’operazione Y P\ (ripetuta in 2 formule) 

1010 - 1060 

Subroutine per trovare il bit e metterlo a uno con il POKE necessario. 


13 (per 5120) o un 14 (per 
6144) o un 15 (per 7168) al 
valore sopra indicato. Cosi, 
se per esempio volessimo la 
memoria video a 6656 e la 
memoria caratteri a 5120, 
dovremmo fare il POKE, 
sempre a 36869. di 224+13. 
e cioè: POKE 36869,237. 
Una maniera più elegante è 
quella di fare il POKE del 
PEEK del valore che c'è, 
messo in AND con il valore 
che seleziona la memoria vi¬ 
deo e sommato con il valore 
che sceglie la memoria ca¬ 
ratteri. In questo modo c’è 
un piccolissimo rischio (sa¬ 
pete dirmi quale?) ma la leg¬ 
gibilità del programma gua¬ 
dagna enormemente. 

Come abbiamo visto, le me¬ 
morie caratteri e video sono 
scelte indipendentemente 
una dall’altra e potrebbero 
occupare anche la stessa 
porzione di memoria. Infatti 
per una grafica con la massi¬ 
ma risoluzione possibile, esse 
devono sovrapporsi per un 
poco. 

Se la memoria caratteri è 
messa a 4096 (più realistica¬ 
mente), e la memoria video 
è messa a 7680 (ancora più 
realisticamente), (facendo 
«POKE 36869, (PEEK 
(36869) AND 240) + 12’), ci 
sono 3584 bytes disponibili 
per la grafica (7680 - 4096 
3584). Ciò ci permette di 
avere 22 colonne per 10 ri¬ 
ghe, oppure 176 punti oriz¬ 
zontali per 160 punti verti¬ 
cali (ogni riga è alta 16 punti 
e larga 8 punti x 22 caratteri 
il tutto usando i caratteri 
doppi). Questo però non 
lascia spazio per programmi 
BASIC in un VIC senza 
espansioni di memoria. Se 
volete spazio per un pro¬ 
gramma BASIC che occupi 
non più di IK. spostate la 
memoria caratteri a 5120 e 
mantenete la memoria video 
a 7680, con il comando: 

POKE 36869, (PEEK 
(36869) AND 240) + 13 
Questa configurazione vi dà 
2560 bytes per dati di grafica 
e una griglia di 176 punti 
(22 caratteri) per 112 (7 ca¬ 
ratteri a doppia altezza) 
usando 2464 bytes. Questa 
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non è una area veramente 
quadrata su cui disegnare, 
per cui sarebbe bene cambia¬ 
re anche il numero di carat¬ 
teri per riga da 22 a 17: 
POKE 36866, (PEEK 
(36866) AND 128) + 17 
Questo ci dà 136 punti oriz¬ 
zontali per 144 punti verti¬ 
cali. Notare, ancora, che tut¬ 
ta questa discussione si ap¬ 
plica ad un VIC senza 
espansione o ad un VIC con 
una espansione di 3K di me¬ 
moria. 

Esiste una ulteriore compli¬ 
cazione per i VIC con più di 
8K. Per questi sistemi, la 
memoria video parte (nor¬ 
malmente) all’indirizzo 
4096. e il programma BA¬ 
SIC comincia a 4608. 

Per usare il tipo di grafica di 
cui stiamo parlando, l’inizio 
del programma BASIC deve 
essere spostato sopra l’area 
usata per le memorie carat¬ 
teri e video (sopra 8191). 
Sotto le giuste circostanze, 
esso può essere fatto dal pro¬ 
gramma BASIC che sta gi¬ 
rando, ma è molto più sem¬ 
plice fare questo spostamen¬ 


to prima di caricare il pro¬ 
gramma. Vedremo come fa¬ 
re quando descriveremo le 
modifiche da fare ai pro¬ 
grammi se avete questa 
espansione. 


Qualche esempio 

Provate a far girare questo 
breve programma figura 2 
che vi mostrerà alcuni prin¬ 
cipi fondamentali di questo 
tipo di grafica. 

Guardate cosa è apparso in 
alto a sinistra sullo schermo. 
Un punto è stato acceso nel¬ 
la prima riga. La linea 10 
del programma colora di blu 
lo schermo. La linea 20 pu¬ 
lisce tutta la memoria RAM 
da 5120 a 6143 (diverrà la 
nuova memoria caratteri). 
La linea 30 mette un codice 
carattere di 0 nella memoria 
video a 7680 (normalmente 
sarebbe una @). La linea 40 
cambia il puntatore alla me¬ 
moria caratteri da ROM a 
RAM. indirizzo 5120. La li¬ 
nea 50 crea un nuovo carat¬ 
tere utilizzando solo il primo 
degli otto bytes che defi¬ 


Figura 3 

Numero dei bit 

Valori 

binari 

76543210 
00000001 = I 

00000010 = 2 
00000100 = 4 

00001000 = 8 
10 0 0 0 0 0 0 = 128 
10 0 0 0 0 0 1 « 129 

1 1 1 1 I I 1 1 =255 


niscono il carattere con codi¬ 
ce 0, per tutte le altre linee 
del carattere sono «spente». 
Questa linea 50 mette a 1 il 
bit nella posizione 0 (quello 
più a destra nel byte) per cui 
vedremo il punto piu a de¬ 
stra della prima riga del pri¬ 
mo carattere accendersi. La 
linea 60 fa in modo che il 
VIC aspetti un po’ prima di 
mostrare «READY» e finire 
la dimostrazione. 

Provate ora a codificare di¬ 
versi valori nella riga 50, te¬ 
nendo presente che i valori 
variano da 0 (nessun punto 













Locazioni di memoria utili per la grafica 
ad alta risoluzione 


43,44 Puntatore all’inizio del programma BASIC. Di¬ 
ce al BASIC il numero di pagina di dove comin¬ 
cia il programma. Numero di pagina = Indiriz- 
zo/256 

Per ricavare l’indirizzo bisogna fare: (contenuto 
locazione 44)x256+(conten. locaz. 43). Per l’e¬ 
spansione di 8K: normalmente 1.18: cambiare a 
1,32 per far cominciare il programma a 8192 
45,46 Puntatore fine programma BASIC, inizio Varia¬ 
bili 

47,48 Puntatore fine variabili, inizio matrici 

49.50 Puntatore fine matrici 

51,52 Puntatore fine stringhe (si muovono verso il bas¬ 
so) 

55.56 Limite della memoria al BASIC 

57,58 Numero della Linea di programma corrente 
59,60 Numero della Linea di programma precedente 
643,644 Limite della memoria al BASIC 
641,642 Puntatore all’inizio del programma BASIC. 
Contiene il numero di pagina. Con l'espansione 
a 8K contiene 0.18; cambiare a 0,32 per 8192 
648 Puntatore memoria video, deve essere modifi¬ 

cato solo con l’espansione di 8K (metterlo a 30) 

Inizio reale dei programma BASIC 
1024 Con espans. 3K 

4096 Senza espansioni 

4608 Con sespans. 8K 

Inizio MEMORIA VIDEO standard: 

4096 Con espansione da 8K 

7680 Senza espansioni o con espansione da 3K 


4096 o Indirizzi possibili per la memoria caratteri 

5120 o 

6144 o 

7168 

8192 Primo indirizzo della espansione da 8K: se si 
sposta il programma a questo indirizzo, bisogna 
che il primo byte sia a 0 

36869 Puntatore alla memoria caratteri e video. Per il 
VIDEO: POKE di 192 per puntare 4096; 224 
per puntare 6144; 208 per puntare 5120: 240 
per puntare 7168. 

Per CARATTERI: sommare al valore del PO- 
KE per il video: 12 per puntare 4096; 14 per 
puntare 6144: 13 per puntare 5120; 15 per pun¬ 
tare 7168. 

36866 Per cambiare il numero di caratteri per riga NC 

= numero caratteri: (PEEK 

(36866)AND128)+NC 

Per cambiare allineamento della memoria video 
ai 512 o ai 1024( Bit 7 a 1 per 512). Normal¬ 
mente: V1C senza espansione = allineamento a 
512; VIC con 3K espansione = allineamento a 
512; VIC con 8K espansione = allineamento a 
1024. 

36867 Per mettere il format dei caratteri a 8x16 
(PEEK(36867) OR 1) 

36879 Colora lo schermo 

32768 Locazione della memoria caratteri standard 

38400 Locazioni dei colori (in parallelo con la memo¬ 
ria video) 

37888 Locazioni dei colori (espansione 8K) 

59829 Routine che rimette a posto gli indirizzi per tor¬ 
nare allo standard: va chiamata col SYS(59829) 


acceso) a 255 (tutti i punti 
accesi). 

Per allargare la vostra com¬ 
prensione. fate le seguenti 
modifiche al programma 
precedente e fatelo girare: 

30 U=0 : FOR .1=7680 
TO 7701 : POKE J U : U = 
U+l : NEXT 
50 POKF. 5128,1 
Vediamo ora come si lavora 
in grafica con i caratteri a 
grandezza doppia. Provate a 
battere: 

POKE 36879,62 
POKE 36867, (PEEK 

(36867) OR I) 

Non stupitevi e andate 
avanti «al buio»: 

POKE 7690,0 

Per rimettere tutto a posto 

battere: 

POKE 36867. (PEEK 

(36867) AND 254) 


Insieme a della «spazzatu¬ 
ra», dovreste vedere due ca¬ 
ratteri nel mezzo della prima 
riga: una «@» sopra una 
«A». Il secondo POKE ha 
cambiato la matrice dei ca¬ 
ratteri del VIC da 8 linee di 
8 punti a 16 linee di 8 punti 
per ogni carattere. Per cui il 
VIC questa volta va a leg¬ 
gersi i primi 16 bytes della 
memoria caratteri per co¬ 
struire il carattere con codice 
0. Dato che i secondi 8 bytes 
identificano una «A» (i pri¬ 
mi otto li abbiamo già visti, 
sono una «@»), noi vedia¬ 
mo entrambi i caratteri. In 
questa maniera se facciamo 
il POKE dei valori da 0 a 
253 nella memoria video, 
avremo lo schermo occupa¬ 
to in tutte le sue 506 posizio¬ 
ni. 


II calcolo 

delle coordinate X e Y 


Ora che sappiamo come ac¬ 
cendere o spegnere un punto 
sullo schermo cambiando 
un bit nella memoria carat¬ 
teri. dobbiamo fare in modo 
che il nostro programma 
prenda delle coordinate X 
(orizzontale, da 0 <r 160) e Y 
(verticale, da 0 a 176) e le 
trasformi nel corrispondente 
indirizzo del byte, dicendoci 
anche quale bit in quel byte 
identifica il nostro punto. Le 
seguenti formule sono tratte 
dal manuale del VIC: 

Carattere 
CA = 

INT(X/8)+I.\T(Y/PV)*NC 
Riga del carattere 
RI = 


(Y/PV-INT(Y/PV)*PV 

Byte 

BY = MC+CA*PV+RI 
Bit 

BI = 7-(X-(INT(X/8)*8)) 

Per queste formule. X rap¬ 
presenta la coordinata oriz¬ 
zontale da sinistra a destra e 
Y' la coordinata verticale 
dall’alto verso il basso. NC è 
il numero di caratteri per ri¬ 
ga, che vedremo più avanti. 
PV è il numero di righe di 
punti per carattere (8 per i 
caratteri a grandezza norma¬ 
le). MC è l'indirizzo della 
memoria caratteri. 

Per mettere a 1 qualunque 
bit con le coordinate X e Y, 
dopo le precedenti formule 
fare: 

POKE 

BY,PEEK(BYK R(2fBI) 
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L’elevazione a potenza serve 
a fare in modo di ottenere 
dei valori binari «interi», e 
cioè che identifichino un sin¬ 
golo bit. Questo è possibile 
solo se i valori sono in po¬ 
tenza di due. 11 risultato sarà: 
0,1.2.4.8.16...ecc. 

Notare anche che queste for¬ 
mule partono dal presuppo¬ 
sto che si sia precedentemen¬ 
te riempita la memoria vi¬ 
deo con valori crescenti da 0 
al numero di caratteri che 
avete a disposizione (esem¬ 
pio: 153 per un V1C senza 
espansioni. 220 per un VIC 
con espansioni). 

Il programma 1 

Il primo programma usa la 
grafica ad alta risoluzione 
per disegnare una sinusoide. 
Se voi gli date un'occhiata, 
troverete che buona parte 
del programma serve a met¬ 
tere a posto le cose per la 
grafica, e che le linee da 460 
a 490 sono quelle che crea¬ 
no il disegno da mostrare sul 
video (una semplice curva 
sinusoidale). Il programma 
come listato è per un VIC 
con una espansione di me¬ 
moria di 3K. Se avete un 
VIC.' senza espansioni, cam¬ 
biate le seguenti linee e ri¬ 
muovete tutte le REMs. Ciò 
vi darà un campo di 136 per 
144 punti: 

45 POKE 56,5120/256 
100 MC=5120:NR=7 
110 NC=17:PV=16 
Se invece avete una espan¬ 
sione da 8K dovete rimuo¬ 
vere le righe 40, 45 e 50. da¬ 
to che la fine della memoria 
è sopra la memoria video. 
Dovrete anche battere i se¬ 
guenti comandi in modo 
«diretto» (non a program¬ 
ma) prima di caricare il pro¬ 
gramma BASIC. Queste 
istruzioni spostano la me¬ 
moria video dove essa è nel¬ 
la versione standard (senza 
espansioni) e cambiano l’ini¬ 
zio del programma BASIC 
in modo tale che sia sopra la 
memoria video. Questo vi 
permette di usare la memo¬ 
ria da 4096 a 7680 per le 
memorie video e caratteri. 
POKE 36866,150:POKE 

36869,240 : 
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POKE 648,30 CLR 
POKE 43,1 : POKE 44,32 
POKE 642,32 
POKE 8192,0 
CLR : NEW 

Il primo POKE mette la se¬ 
lezione deH’allineamento 
della memoria video a 512 
(per poterla poi mettere a 
7680), il secondo mette la 
memoria caratteri a 4096 e 
quella video a 7168+512, il 
terzo dice il numero di pagi¬ 
na della memoria video 
(30x256 = 7680). Voi dove¬ 
te premere il tasto 
CLR/HOME per pulire lo 
schermo dopo aver battuto 
la prima riga. Ciò dirà al 
BASIC che avete cambiato 
la locazione della memoria 
video. Il POKE a 43,44 e 
642 informano il BASIC che 
deve mettere il programma 
sopra la memoria video, e 
cioè a 8192 (32x256 = 
8192). mentre il POKE a 
8192 mette a 0 la prima lo¬ 
cazione di memoria utile per 
il programma BASIC: è un 
passo obbligatorio quando si 
sposta l'inizio del program¬ 
ma. 




Prenota 
Personal Computer 
in edicola 


Realizzare 
nuovi caratteri 


Q uesta è una procedura 
che potrete anche in¬ 
serire come routine nei vo¬ 
stri programmi che vi per¬ 
metterà di utilizzare le possi¬ 
bilità di alta risoluzione del 
vostro Vie 20. Basta che ab¬ 
biate la versione di base dei 
Vie, cioè i 3.5 Kb di memo¬ 
ria utilizzabile (o «memoria 
viva»). Tale procedura fa 
uso della possibilità di usare 
la «memoria morta» parten¬ 
do dall’indirizzo N. 36869. 
Provate prima di scrivere 
l'intera procedura, a digitare: 
«POKE 36869, 220 RE¬ 
TURN», i caratteri da que¬ 
sto punto in poi. saranno 
svincolati e dipenderanno 
solo dal contenuto della 


Listato - Nuovi Caratteri 


10 

REM. U 

1U 20 

20 

UiNttf 

7 ;> : M = 0 : G 0 T 0 1 0 0 0 0 

25 

E U K X = 

0107* AOO=0! HEXT 

26 

1=0! J 

-0: GOTO 1.500 

30 

P Ù K t 

7.6 00+22* I + J > 16 0 

36 

POKE 

384G0f22* 1 +.T > b 

4 0 

UtTA* 


60 

I E Af = 

CHR'*< loJTEItNEK 1 > = A< l>+2*< 

65 

POKE 

7680+22+I+J ? 160 

56 

J = J + 1 


60 

I E* A $ — 

■' " TEibNPOKE7b8U + 22 + I + J « 32 

65 

J =■■ J + I 


70 

IP J> 

7 THEN 1=1+1!J = U 

80 

IE 1 >Y 

1 HEN110' 

90 

POKE 7 

680 + 22* 1 + J » 32 


IO© 
110 
120 
130 
140 
160 
] 60 
I 7 0 
160 
190 
1506 
1510 
1520 
1530 
1540 


G O T 03 Vi 1 
EURX=0TO? 

POKbb 1 44+N+8+X » A < '< 

NfcXT 

INPUT "UN ALTRU CARATTERE"•R* 
1PR$="SI"THENN=N+1: GOTO20 
il- K$="N0"1 HEN160 
QDTU140 

PRIMI :P0KE36869,254:N=N+1 
END 


PRIMI " L0 

PRINT " LI 

PRiNT " i-2 

PRIMI " -3 

PRiNT " L4 

1550 PKiNT " L5 

15B0T PRINT " L6 

1570 PRIMI " L? 

1580 PRINT 
i530 PRINT 
1600 GOTO30 
1000U E 0 R X = 6 1 4 4 T Q 7 6 8 0 
10018 PUKEX> 0 :NEX T 
10020 UOl020 


11 L] LJ LJ LJ H U CT " 
"01 23 4 66V" 


«memoria viva». 

Per tornare ai caratteri da 
voi abitualmente usati sul 
vostro Vie. basterà premere 
Run o Stop o Restore. 
Quindi, avendo a disposizio¬ 
ne un bel po’ di «memoria 
viva», potremo contare su 
un numero elevato di carat¬ 
teri in più, e tutti da noi scel¬ 
ti. creati e voluti. 

Come fare per creare dei ca¬ 
ratteri nuovi? 

Nel caso non fosse a voi no¬ 
to, un video è un insieme di 
punti e per far scrivere una 
parola devo «accendere» al¬ 
cuni punti, ed altri lasciarli 
«spenti» come tante piccole 
lampadine. 


O, meglio dire, devo crearmi 
una «matrice» di punti, sa¬ 
pendo che il mio video è 
una matrice quadrata di 256 
punti per le righe, per altret¬ 
tanti 256 per le colonne, 
cioè da 0 a 255. 

Ponendo 0 come valore ad 
un punto (X. Y) avrò che ta¬ 
le punto sarà «spento», 
mentre con il valore ad 1, 
avrò che tale punto sarà «ac¬ 
ceso». Quindi il carattere 
viene creato, (forse sarebbe 
meglio dire solo visualizzato) 
in base ai punti «accesi». 

Ogni carattere è formato da 
una matrice di 8 righe x 8 
colonne. 
















Simulare 
l’istruzione 
PLOT sul C.64 


Q uesto programma, di 
Paolo Peranzoni di 
Padova, colma una grossa 
lacuna del BASIC del C-64 e 
cioè l’istruzione PLOT/ 
DRAW. È un programma 
interamente in linguaggio 
macchina (quindi OK come 
occupazione di memoria e 
velocità), è originale ed è ad 
alto contenuto tecnico. La 
documentazione è abbastan¬ 
za completa, l'uso è relativa¬ 
mente facile (una volta capi¬ 
te le regole di «attivazione» 
basta dare un SYS... e le 
coordinate) ed è veramente 
molto veloce. 

Il programma in linguaggio 
macchina per COMMO¬ 


DORE 64 ha lo scopo di si¬ 
mulare l’istruzione PLOT, 
purtroppo assente dal BA¬ 
SIC Commodore, viene usa¬ 
to il comando SYS per chia¬ 
mare la routine in I.m., per 
cui, dopo aver posto 
PL=49292 (vedi program¬ 
ma BASIC dimostrativo, li¬ 
nea 80), la sintassi del co¬ 
mando è: 

SYSPL, X, Y, per disegnare 
il punto coordinate (X, Y), 
dove X cd Y stanno per 
qualunque espressione alge¬ 
brica calcolabile in BASIC 
oppure 

SYSPL, X, Y, XI, Yl,... per 
disegnare più punti 
oppure 

SYSPL, X, Y TO XI, Yl 
per disegnare il segmento 
che unisce (X, Y) con (XI, 
Yl) 
oppure 


SYSPL, X, Y TO XI, Yl 
TO X2, Y2 TO... per di¬ 
segnare più segmenti conse¬ 
cutivi. 

Il comando SYSPL TO X, 
Y... traccia un segmento 
dall’ultimo punto preceden¬ 
temente disegnato fino ad 
(X Y); se non è ancora stato 
disegnato nessun punto, op¬ 
pure se è stato azzerato il 
flag di abilitazione traccia¬ 
mento segmenti (locaz. 
$FE), il comando equivale a 
SYSPL, X, Y... 

Si possono liberamente 
mescolare le due modalità 
(singoli punti e segmenti) in 
una stessa istruzione, purché 
ovviamente non si ecceda la 
lunghezza di 80 caratteri di 
una linea BASIC. 

Prima di poter usare l’istru¬ 
zione SYSPL è necessario: 

1) Caricare la routine in I.m. 
in memoria: ciò è realizzato 


dal programma BASIC me¬ 
diante la lettura di una serie 
di DATA decimali. 

2) Pulire la pagina grafica 
prescelta e riempire la map¬ 
pa colore; ciò e effettuato da 
una routine in I.m., che vie¬ 
ne chiamata dal BASIC me¬ 
diante il comando SYSCL 
(vedi listato, linee 70, 110 e 
140). 

3) Predisporre il chip VIC II 
per la grafica: ciò è ottenuto 
con le linee 80 e 90 del pro¬ 
gramma BASIC: non ho im¬ 
plementato questa routine in 
I.m. dato che non ci sono 
problemi di velocità. 

Il programma in I.m. fa lar¬ 
go uso di routines del BA¬ 
SIC; per individuare i punti 
di ingresso di tali routines mi 
sono servito del libro VIC 
REVEALED di Nick Ham¬ 
pshire, dato che il BASIC dei 
due computer è uguale, a 
parte le zone di memoria; 
purtroppo il libro è ricco di 
inesattezze che rendono fati¬ 
coso un corretto uso delle 
routine elencate. (W.P.) 


Push Over 
per VIC 20 

I l listato di «Push Over». 

gioco di strategia di scac¬ 
chiera viene proposto dal 
fiorentino Simone Marinai. 
«Push Over» è un gioco da 
scacchiera (5x5), che richie¬ 
de di allineare quattro pedi¬ 
ne del proprio colore in oriz¬ 
zontale o verticale (non dia¬ 
gonale), per vincere. La dif¬ 
ferenza con i normali «filet¬ 
ti» sta tutta nel fatto che è 
vietato deporre pedine diret¬ 
tamente sulla scacchiera, ma 
bisogna al contrario appog¬ 
giarle all’esterno di essa, in¬ 
torno, facendo poi scorrere 
la fila di pedine fino a far en¬ 
trare la propria (da qui il no¬ 
me dei gioco). Esempi e fi¬ 
gure sono stati discussi su 
Personal Computer n. 5/83, 
ma il listato del nostro ami¬ 
co fiorentino dovrebbe aiu¬ 
tarvi c chiarire ogni dubbio. 
Buon lavoro! (L.F.) 


Note e commenti ai programmi - Istruzione PLOT 

Il programma in I.m. si sviluppa secondo il diagramma di flusso in figura 1 nel quale X, 
Y indicano le coordinate del punto da disegnare (o dell’inizio del segmento nel caso di 
SYSPL TO) e XI, Yl le coordinate della fine del segmento; N rappresenta il numero di 
passi necessari per il tracciamento, mentre LX' e LY' rappresentano gli incrementi 
delle due variabili ad ogni passo. 

Le diverse quantità da memorizzare vengono sistemate in blocchi da 5 bytes ciascuno, 
denominati ACC3, ACC4, ecc., in analogia con ACCI e ACC2 (primo e secondo float. 
acc.). Gli indirizzi di partenza e i contenuti sono: 

ACC3 da $00 57 contiene N prima della trasf. in intero 

ACC4 da $00 5C contiene LY e poi LY' 

ACC5 da $0 2A7 contiene X dell'ultimo punto 

ACC6 da $0 2AC contiene Y 

ACC7 da $0 2B1 contiene LX e poi LX' 

Per il contatore dei passi si utilizzano poi le locazioni $4B e $4C; altre locazioni che non 
interferiscono col BASIC sono usate per passare parametri. 

La locazione $0 2 è usata per il codice colore (semi-byte alto = colore punto, semi-byte 
basso = colore sfondo). 

I vari arrotondamenti all'intero si rendono necessari sia per garantire una corretta rap¬ 
presentazione cartesiana (per inciso: l'origine è in basso a sinistra, e gli assi orientati 
come di consueto), sia per evitare irregolarità nel tracciamento dei segmenti. 

II diagramma di flusso della subroutine PLOT è mostrato in figura 2. 

L’algoritmo usato riprende noti metodi proposti, in BASIC, anche dal manuale COM¬ 
MODORE, con qualche miglioramento legato all’uso delle funzioni logiche. Il puntato¬ 
re alla memoria di schermo è costituito dalle locazioni $22 e $23. 

Il programma BASIC oltre a caricare la routine in I.m., costituisce una dimostrazione 
dell'uso di questa istruzione: disegna una serie di quadrati concentrici, e poi una figura 
di Lissajus. La scelta del colore (codice 20 7 = punti grigio-medio su sfondo grigio¬ 
chiaro) c legata all’uso di un monitor monocromatico a fosfori verdi, dove offre risultati 
soddisfacenti senza dover modificare luminosità e contrasto rispetto alla pagina testo; su 
un televisore a colori si possono usare altre combinazioni, tenendo presente però che 
spesso insorgono aberrazioni cromatiche. 

Ultima annotazione: la somma del DATA (utile per un controllo di esattezza) deve dare 
50830. 


(Il listato c a pag. 36) 
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Fig. 1 - Diagramma di flusso del programma L.M. disassemblato 
INIZIO 
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Fig. 2 - Diagramma di flusso della subroutine PLOT. 
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Programma in L.M. disassemblato - Istruzione PLOT 

C000 PLOT 

LDX WSAC 


C002 

LDY W302 


C004 

JSR IBBD4 

trasf. ACCI in ACC6 

C007 

JSR SB849 

somma 0.5 ad ACCI 

C00À 

JSR SB1BF 

trasf. fi. point in intero 

C00D 

LDA WS 00 


C00F 

STA S22 


C011 

LOA WS60 


C013 

STA 323 

puntatore origine schermo grafico 

C015 

LDA 364 

byte alto coord. Y 

C017 

BN5 3C064 

se /0 va a RETURN 

C019 

LDa W3C7 

decimale 199 

C01B 

SEC 


C01C 

SBC 365 

; inverte coord. Y 

•7013 

3CC SC064 

;se negativo va a RETURN 

C020 

TAY 

{salva a in Y 

0021 

AND WSF8 

[maschera i tre bit più bassi 

0023 

STA 365 


0025 

LSR 

la routine che segue, fino a 3C03S, 

0026 

ROR 322 

moltiplica l’accumulatore per 40 

0026 

ROR 

ed aggiunge il risultato al puntatore 

0025 

ROR 322 

dello schermo grafico; è scritta per 

0023 

ADC 365 

esteso, senza fare uso di cicli, per 

00 2 D 

ROR 

renderla più veloce 

0023 

ROR 322 


0030 

ROR 


0031 

ROR 322 


0033 

ROR 


0034 

ROR 322 


0036 

ADC 323 


0036 

STA 323 


003 A 

LDA 315 

byte alto coord. X 

C03C 

LSR 


C03D 

BNE 3C064 ; 

se maggiore di 1 va a RETURN 

C03F 

LDA 314 J 

byte basso coord. X 

0041 

BCC 3C049 J 

se X minore di 256 non incrementa 323 

0043 

INC 323 


0045 

CMP WS40 ; 

confr. X con 320(dec.) 

0047 

BCS SC064 ;se maggiore o uguale va a RETURN 

0049 NOINC 

AND W3F8 {maschera i tre bit più bassi 

C04B 

STA 365 


C04D 

TYA ; 

richiama Y in A 

C04E 

AND WS07 J 

maschera i cinque bit più alti 

0050 

ADC 365 


0052 

TAY ; 

trasf. A in Y (offset per ind. indiretto) 

0053 

LDA 314 ; 

byte basso X 
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C055 


AND 

*307 

maschera i cinque bit più alti 

C057 


TAX 


routine per settare il bit corrispon 

C058 


LDA 

*380 

dente al punto da accendere (fino 

C05A 

LOOP 

DEX 


a RETURN escluso) 

C05B 


BMI 

3C060 


C05D 


LSR 



C05E 


BNE 

JC05A 


C060 

LPEND 

ORA 

( 322 ),Y 


C062 


STA 

(322),Y 


C064 

RETURN 

LDX 

*SFF • 


C066 

RET2 

STX 

3FE 

[abilita tracciamento segmenti 

C068 


CLC 



C069 

RETI 

RTS 


ritorna alla routine chiamante 

C06A 

CLEAR 

LDA 

*300 

questa routine (fino a SC08B ) pulisce 

C06C 


LDX 

*3 20 

lo schermo grafico e predispone la 

C06E 


LDY 

*360 

mappa colore 

C070 


CLC 



C071 

BIS 

STY 

115 


C073 


LDY 

*300 


C075 


STY 

314 


C077 

L0CP1 

STA 

(314),Y 


C079 


INY 



C07A 


BNE 

3C077 


C07C 


INC 

315 


C07E 


DEX 



C07P 


BNE 

SC077 


C081 


BCS 

3C066 


C063 


LDA 

102 

colori sfondo e punto 

008 3 


LDX 

*S04 


C087 


LDY 

H35C 


C089 


SEC 



C08 A 


BCS 

SC071 


C08C 

START 

LDY 

*300 

punto di ingresso routine 

C06E 


LDA 

( 37A), Y" 

analizza carattere seguente SYSFL 

C090 


CMP 

*32C 

carattere •virgola* 

C092 


BNE 

3C0BF 

se non è 'virgola’ va a NOCOM 

0094 

SINGLE 

JSR 

10073 

legge un carattere 

C097 


JSR 

SAD8A 

legge coo^d. X 

C09A 


JSR 

SB849 

aggiunge .5 per arrotondare 

C09D 


JSR 

IBCCC 

prende la parte intera 

C0A0 


LDX 

HSA7 


C0A2 


LDY 

*302 


C0A4 


JSR 

SÉBD4 

trasferisce ACCI in ACC5 

C0A7 


JSR 

SB1AA 

trasforma fl.poiYit in intero 

C0AA 


8TY 

314 


C0AC 


STA 

315 


C0AE 


JSR 

SAEFD {verifica virgola 

C0B1 


JSR 

3AD8A 

legge coord. Y 
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Programma in 

L.M. disassemblato - Istruzione PLOT 

C034 

JSR SB849 

; aggiunge .5 

C0B7 

JSR SBCCC 

;parte intera 

C0BA 

JSR 3C000 

;va alla subr. PLOT 

C03D 

BCC SC08C 

; torna a START 

C0BF 

NOCOM CMP «SA4 

;codice BASIC comando TO 

C0C1 

BNE IC069 

;se non è 'TO' va a RETI (ritorna) 

C0C3 

LDA SFE 

;flag abilitazione tracciamento segm. 

C0C5 

BEQ 3C094 

;se =0 va a SINGLE (ignora TO) 

C0C 7 

JSR 10073 

; legge un carattere 

C0CA 

JSR SAD6A 

; legge coord. X 

C0CD 

JSR 3B849 

; aggiunge .5 

C0D0 

JSR 1BCCC 

;parte intera 

C0D3 

LDA «3A7 


C0D5 

LDY «302 


C0D7 

JSR 13850 

;ACC5-ACC1 in ACCI 

C0DA 

LDX IBI 


C0D Z 

LDY 302 


C0DB 

JSR 3BBD4 

; trasferisce ACCI in * :C7 

C051 

JSR 3AEFD 

jverifica virgola 

C054 

JSR 1 AD8A 

jleige coord. Y 

C0E7 

JSR 3B849 

; + .5 

C0EA 

JSR 33CCC 

,‘parte intera 

C0ED 

LDA «SAC 


C0BF 

LDY «302 

' 

C0F1 

JSR 3BS50 

;ACC6-ACC1 in ACCI 

C0F4 

JSR S3BC7 

; ACCI in ACC4 

C0F7 

LSR 366 

; valore assoluto di ACCI 

C0F9 

LDA «IBI 


C0FB 

LDY «102 


C0FD 

JSR 33A6C 

; trasferisce ACC7 in hCC2 

eipp 

LDA 36A 

; primo byte Tantissa ACC2 

C102 

AND «17F 

; maschera il bit più alto 

C104 

STA 36 A 


C106 

LDA «369 


C106 

LDY «100 


C10A 

JSR 3BC5B 

; confronta ACCI con ACC2 

ClpD 

ASL 


CipE 

BCC 3C117 

;se ACCI è maggiore di ACC2 va a MAG 

CI 10 

LDA «369 


C112 

LDY «300 


C114 

JSR 3BBA2 

; trasferisce ACC2 in ACCI 

CI 17 

MAG JSR IBIAA 

; trasforma fl.point in intero 

Cll A 

STY S4B 

^contatore passi tracciamento 

Clic 

STA S4C 

» 

t 

C11B 

BNE 3C126 

;se maggiore di 0 va a DRAW 

CI 20 

TAX 


C121 

BNE SC126 

• 

9 
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ci 23 


JMP SC08C 

; torna a START 

CI 26 

DRAW 

JSR SB391 

; trasforma intero in fi. point 

C129 


JSR SBBCA 

; trasferisce ACCI in ACC3 

C12C 


LDA HSB1 


CI.2E 


LDY H302 


CI 30 


JSR SBB^F 

;ACC7/ACCI in ACCI 

CI 3 3 


LDX BSB1 


C135 


LDY #3^2 


CI 37 


JSR SBBD4 

trasferisce ACCI in ACC7 

CI 3 A 


LDA BS57 


C13C 


LDY HS00 


C13E 


JSR SBBA2 

trasferisce ACC3 in ACCI 

C141 


LDA HS5C 


C143 


LDY U00 


C145 


JSR 3BB0F 

ACC4/ACC1 in ACCI 

C148 


JSR SBBC7 

ACCI in ACC4 

C14B 

LOOP 2 

LDA 34B 


C14D 


3NE SC153 


C14F 


DEC 34C 

decrementa contatore passi (byte alto) 

C151 


BMI 3C187 

se il trcciamento è finito va a STARTI 

C153 


DEC 34B 

decrementa contatore passi (byte basso) 

C155 


LDA H331 


C157 


LDY HS02 


C159 


JSR SBBA2 

trasferisce ACC7 in ACCI 

C15C 


LDA H3A7 


C153 


LDY H502 


C160 


JSR 33850 

;ACC5-ACC1 in ACCI 

CI 63 


LDX KSA7 


CI 65 


LDY H302 


C167 


JSR SBBD4 

trasferisce ACCI in ACC5 

C16A 


JSR 33849 

I+.5 

C16D 


JSR S31AA 

trasforma fi.point in intero 

C170 


3TY 314 


C172 


5T\ 315 


C174 


LDA KS5C 


C176 


LDY BS00 


C178 


JSR 33BA2 

trasferisce ACC4 in ACCI 

C17B 


LDA B3AC 


C17D 


LDY HS02 


C17F 


JSR SB650 

ACC6-ACC1 in ACCI 

C182 


JSR IC000 

va alla subr. PLOT 

C185 


BCC SC14B 

va a LOOP2 

C187 

STARTI 

LDA HSA7 

questa routine (fino alla fine) arrotonda 

C189 


LDY K302 

all'intero il contenuto di ACC5 e di 

C18B 


JSR SBBA2 

ACC6 , che contengono le coordinate 

C 18 E 


JSR SB849 

X ed Y dell’ultimo punto disegnato 

C191 


JSR SBCCC 


C194 


LDX »SA7 


C196 


LDY MS02 
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C198 
C19B 
C19D 
C19P 
C1A2 
C1A5 
C1A8 
CI AA 
CIAC 
CIAF 


Programma in L.M. disassemblato - Istruzione PLOT 

JSR SBBD4 
LDA MAC 
LDY M02 
JSR SBBA2 
JSR IB849 
JSR SBCCC 
LDX MAC 
LDY M02 
JSR IBBA2 
JMP SC08C 


FINE ROUTINE L.M. 


Listato programma Basic - Istruzione PLOT 


0 REM- PLOT - 

1 DATA 162,172,16^,2,32,212,187,32,73,184,32,191,177,169,^,133, 

34,169,96,133f35 

3 DATA 165,100,206, 75 ,169,199,56,229,101,144,68,168,41,248 
5 DATA 133,101,74,102,34,106,102,34,101,101,106,102,34,106,102, 
34,106,102,34 

7 DaTA 101,35,133,35,165,21,74, '>08,37,166,20,144,6,230, 35 
9 DATA 201, 64 ,176,27,41,248,133,101,152,41,7,101,101,168,16 5, <20 
LI DaTA 41,7,170,169,128,202,48,3,74,208,250,17,34,145,34,162, 

255,134,254,24,96 
L 2 ts;;-CLSAR- 

13 DATA 159,0,162,32,160,96,24,132,21,160,0,132,20,145,20,200, 
208,251 

15 data 230,21,202,208,246,176,227,165,2,142,4,160,92,56,175,229 

16 REM 

17 TIM-START- 

18 REM 

19 DATA 160,0,1^7,122,201,44,208,43,32,115,0,32,138,173,32,73,184, 

32 , 204,186 

21 DATA 162,167,160,2,32,212,167,32,170,177,132,20,133,21,32,253, 
174,32,136,173 

23 DATA 32,73,164,32,204,186,32,0,192,144,205,201,164,208,166,165, 
254,240,205 

25 DATA 32,115,0,32,136,173,32,73,164,32,204,168,169,167,160,2, 
32,80,184,162,177 

27 DATA 160,2,32,212,167,32,253,174,32,138,173,32,73,164,32,204, 

168 , 169 , 172,160 

29 DATA 2,32,80,164,32,199,16 7,70,102,169,177,160,2,'32,140,166, 
165,106,41,127 

31, DATA 133,106,169,105,160,0,32,91,18 6,10,144,7,169,105,160,0, 
32,162,187 

32 REM-MAG-— 
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Listato programma Basic - Istruzione PLOT 


33 DATA 32,170,177,132,75,133,76,206,6,170,206,3,76,140,192,32, 

145.179.32.202.187 

35 DATA 169,177,160,2,32,15,187,162,177»160,2,32,212,187,169,87, 
160,0,32,162,167 

37 DATA 169,92,160,0,32,15,187,32,Ì99,187,165,75,206,4,198,76,48, 
52,198,75 

39 DATA 169,177,160,2,32,162,187,169,167,160,2,32,60,184,162,167, 

160,2 

41 DATA 32,212,187,32,73,184,32,170,177,132,20,133,21,169,92,160,0 
43 DATA 32,162,187,169,172,160,2,32,60,184,32,0,192,144,196 
45 DATA 169,167,160,2,32,162,187,32,73,184,32,204,188,162,167, 

160.2.32.212.187 

47 DATA 169,172,160,2,32,162,187,32,73,184,32,204,188,162,172, 
160,2,32,212,167 

49 DATA 76,140,192 

50 REM-PINE ROUTINE L.M.- 

51 REM 

52 REM 

59 REM-CARICA ROUTINE L.M.- 

60 FOR 1*49152 TO 49585: READ P: POKE I,P:NEXT 

69 REM - DEFINISCE CHIAMATE SUBR. E PULISCE SCHERMO GRAFICO - 

70 PL=49292: CL*49258: SYSCL 

79 REM-INI ZI AL IZZA VIC II- 

60 71=53248: M=VI+17: AD=VI+24: CI=56576 

90 POKE M,Pc!EK(M) OR 32: POKE AD,7XL6+8: POKE CI, PEEK(CIÌ AMD 254 

99 REM -SCELTA COLORI- 

100 POKE 2,207 

109 REM - DISEGNA QUADRATI - 

110 SYSCL: FOR 1=8 TO 80 STEP 6 

120 3Y3PL,160+1,100+1 TO 160+1,100-1 TO 160-1,100-1 TO 160-1,100+1 
TO 160+1,100+1: NEXT 
130 *0< 1=0 TO 1000: NEXT 

139 REM- DISSGNrt FIGURE LISSAJUS - 

140 SYSCL: FOR 1=0 TO 189: SY3PL TO 160+150*S£N(1/6),100+90«COS(1/10): 

NEXT 

150 FO x 1=0 TO 1000: NEXT 

159 REM - RIPRISTINI SCHERNO TESTO - 

160 POKE M,PSEK(M) AND 223: POKE AD,21: POKE CI,PEEK(CI) OR 1 
170 PRINT CHRS(147) TAB(207)"PER RIPETERE PREMI UN TASTO” 

180 PRINT TaB(210)"PER USCIRE PREMI STOP” 

190 GET KS: IF K3=”” GOTO 1?0 
200 RUM 70 
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Listato - Push Over 


2 REM ♦♦♦♦♦♦♦♦♦♦♦■♦♦♦♦ ♦♦*♦♦♦ 

3 RKM PUSH CVER - PC CL'»* **5 

4 RE* GIOCO PBR VIC 20 

5 RE* 3T «ÀRDUI S1H0HR 

6 RBM 

B RE* INIZIALI ZZAZIONE SCHERNO 
10 DI* A(4,4 ) :0-1 

20 POKE 36864,20 : POKS 36666,46 : POKE 361-60,141 : POKE 36867,160 
50 FRINÌ "(cls)(2 «p«i)A()B()0()D()R(3 .p»»l)i176.96.178.96.178.96.178.98. 

178.96.174) ( >•; 

40 POR P-70 TC 78 STEP 2 

50 PRI*": CKR$(P)s"125. 16C.1 25.160.125.160. 125. r >0.1?5.160.125)";CHR$(P*1); 
60 PRINT -160.171. 96.123.96,123. 96.123.96. 123.9b. 179.160)% 

70 NEX? 

80 PRINT "fi Oa ) ( tbO. i 7 3.96. 177.96.177 .96.177 .°6.177.96. 1P9) ( 3 spazi >P( Vi 
OROSOT" 

85 RENI INPUT GIOCATO:;! 

90 OOSUB fSOt PRI^T "GIOCATORE (•)%: INPUT G1$ 

100 OOSUB ?80tPPI»T»<JIOCAT0R2 Co)"; sINPUT G2$ 

106 RBM RICHIESTA S CONVALIDA \C-SA 
110 IP C<>1 THXN140 

1iO OC SUR ? CtPTUPr G1$." (•) COME MUOVI";: IN.’UT H$: M-ASCO X ' : Il D<65 C~ 
M>£4 THSHi’O 
130 S»G : G*° : GOT0160 

140 CCS*’» T.'OxPRIf* S2 1;* (•) COM2 »TC71%j Tffr'"7 m*K-ASC{Pf)s IP W<65 •> 
*> P 4 th : vi 40 
150 S-GtG.1 

155 RBM SCELTA ROUTINE iBLA'PTVE ALL* A -G JOANAF Wl’C DI X SI CRIA 

160 1F N<70 THBN 200 

170 IP M>79 THEN 21C 

180 IP INT(M/2)»M/2 THE* 220 

185 RE* AGO. ME*. PER MOVIMENTO A STNIS U 

190 L.(M-69)/2-1:?ORI-0 TO 3:A(I,L)-A(I t,L) t NBXT : A(4,L).S : C-L : D=C : 

E-0: P-4 : H-2 * GOTO 230 
195 RI* AGG. *W. PER MOVIMENTO IN 3A5 5C 

200 L»M-65 t FCR 1-4 TO 1 STBP-1 : A(L,!'«A(L,1-1 ) : V5XT |A(L,C)aS j S-L t 
?-B 1 C*0 : D»4i H-1 : G0TC230 
205 RE* AGO. ME*. PKR .MOVIMENTO IN ALTO 

210 L-M-80 * POR 1*0 TO 3 : A(L,I)-A(L,J+l) : NBXT :A(L,4)»S : E»L t P-E : 

C-0 : D>4 x H-f1:00T0 230 
215 RE* AGG. ME*. PER MOVIMENTO A DESTRA 

220 L«(*-70)/2 l POR 1-4 TO 1 STKP-1 j A(I,L)»A(1-1,L): VEXT : A(0,l)-S: 

C-L : D»C : E-0 : P-4 : H-2 

>525 Ri* AGGIORNAMENTO SCHERMO B SOMMA DELLA LINEA RELATIVA ALLA MOSSA 
230 ?-0 : POR B»C TO D 
240 POR A-B TO P 

250 PRINT - (ho«#)%SPC(28);SPC(2«A*?*B*iJ) { 


260 A1-A(A,B) 

270 IP 41-0 7HB* PRINT - %x GOTO 300 
280 IP Al*1 THEN PRINT "•%; GOTO 300 
290 PRINT "o% 

300 T-T+AI 

310 NBXT : NEXT 

320 A-A-1 x B-B-1 t GOSUB 550 

345 RE* SOMME DELLE LINEE PERPENDICOLARI ALLA MOSSA 
350 T-0 : IP H-1 THEN 400 
360 H-1 t POR A-0 TO 4 
370 POR B-0 TO 4 

380 T«T-fA(A,9) : NEXT : B-B-1 t OOSUB 550 
390 T=0 : NEXT : GOTO 450 
400 u =° : <,ro ®=C TO 4 

4<r A-0 4 


4?o i NEXT* : r-CS 1 ** «50 

,rr *-c t itcxt 

4 45 50**€ ’ 1 * r TT \ DT AGONI T T 

tv - s r j •ri» i»r -r 4 . t.T*a(a,a) : TOT : 

460 T=0 : ?c» 4*c Tr i : T-T»4(A,A-M ; HT fm 

4TC T*0 : -OR Ui TC t t T.?+A(A,A-1) TO» 

48C T.O : POR ArC TO 4 : T»T+4(A,*—4> ' f ?* m 

49. r=0 : PCR A-0 TO 3 : T=T*A(4,3-A) : V5XT 

500 7=0 : POR A-1 TC 4 : T-'”*A(A,5-A) : TOT 

51C GOTO 11C 


«*3 : cr>s"* 550 

• GC r * n R 70C 

• .'.CSI»’ 7' 0 

: J -4 : 550 

x Ter 

j iosm 7< C 


545 RE* SUBR0U7IN-- V•'PIRICA DELLA lOtfl*. 

«50 IP T>35 OR T-4 OR T-5 OR T=13 THEN 570 
560 RE7TRN 

570 ON H GOTO 580,600,620,640 

580 IP A(A, 1)«A(A,2) AND A(A, 2) = A( 4,31 '50 

590 RETURN 

6CO IP A(1,B)»A(2,3) AND A(2,B)-A(3,5* THBN 76C 
610 RBTURN 

620 IP A(1,1)-A(2,2) AND A(2,2)-A(3,3) THEN 750 
630 RBTURN 

640 I- A(i,3)-A(2,2) AND a(2,2)*A(3,1) THBN 750 
650 RB7.RN 

695 R^* VERIPICA SOMMA 

700 IP T>35 OR T-4 CR T-5 OR T-13 THBN 750 


710 R2TURN 

745 RBM MESSAGGIO PINALB 

750 TP T>35 THEN J$-G2$ : GOTO 770 

760 Jf«Ci# 

770 GOStJR 780 x PRIVI J$j" HAI VINTO ? « • x END 

780 PRINT "(ho*#)": SPC(l69)t-(*0 spati)(hoa«)%SPC(169)j: RBTURN 


Utility e 
linguaggio 
macchina 
per C.64 

V i proponiamo due inte¬ 
ressanti programmi, 
realizzati da Massimo Ro¬ 
berto Garibaldi, per il Com¬ 
modore 64. Il primo è una 
Utility che sene a fare copie 
di blocchi di dischetti, sia 
che si possieda un solo drive 
sia che se ne possieda due. È 
possibile anche formattare i 
dischetti prima della copia, 
come è possibile anche forni¬ 
re la traccia da cui si intende 
partire (vi ricordo che un 
dischetto contiene 35 trac- 
eie, e la traccia 1 è la più 
esterna). Il secondo pro¬ 
gramma inviato da Massi¬ 
mo è in linguaggio macchi- 
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na e serve a leggere il valo¬ 
re delle due porte giochi pre¬ 
senti sul C-64 (potete avere 
Joystick, Light Pen, Paddle). 
Viene fornito il listato del 
programma BASIC che cari¬ 
ca le routines in linguaggio 
macchina, oltre che al disas¬ 
semblato completo e com¬ 
mentato delie routines. 
Entrambi i listati sono fatti 
in una maniera particolare, 
nel senso che tutte le istru¬ 
zioni che sarebbero su una 
riga separate dai due punti, 
sono invece scritte su più ri¬ 
ghe. Ricordatevi quindi, 
quando li digitate, di notare i 
numeri di riga, e mettere tut¬ 
te le varie linee del listato 
che formano una riga insie¬ 
me, separate dai soliti due 
punti. 

L’unica grossa lacuna ri¬ 
guarda la documentazione 


(non ci sono REMarks, né 
liste delle variabili, né com¬ 
menti ai listati). Penso di 
avervi annoiato abbastanza, 
per cui passo senz’altro la 
parola al nostro amico. 

Copy Block Contents 

11 Programma è particolar¬ 


mente conciso allo scopo di 
lasciare molta memoria libe¬ 
ra che viene usata come buf¬ 
fer. 

Il Programma è infatti basa¬ 
to sulla gestione di una parte 
di memoria che viene cari¬ 
cata dal disco originale e sca¬ 
ricata su quello di backup. 


Tabella controllori 


A=USR(1) 

LEGGE 

NO.l 

IL 

JOYSTICK 

DEL 

PORT 

A=USR(2) 

LEGGE 

NO.2 

IL 

JOYSTICK 

DEL 

PORT 

A=USR(3) 

LEGGE 

LA 

COORDINATA X 

DEL- 


LA LIGHT PEN 

A=USR(4) LEGGE LA LA COORDINATA Y 
DELLA LIGHT PEN 

A=USR(5) LEGGE LA PADDLE X SUL PORT 1 

A=USR(6) LEGGE LA PADDLE X SUL PORT 2 

A=USR(7) LEGGE LA PADDLE Y SUL PORT 1 

A=USR(8) LEGGE LA PADDLE Y SUL PORT 2 
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3 


'0 

20 


30 


4P 


110 

120 

1 30 

190 

200 


210 

220 

!i*« 

3010 

3020 

3030 

9040 

“030 
30*e 
30 7 0 
3080 
505*8 
3100 
31 10 
3128 
5138 
3140 
3130 
3140 
51*0 
5180 
3! 90 
3200 


prin- nm ■ 

F0RP.IT031 

PRINT' ", 

NEH- 

00 mi DOME CONTOOL »EOD 
F0RP-1T031 
PRINT* *, 

NEH* 

POIS’ ■ 

POI NT o»*8TTEN0€R€. PREOC*' 

€-33247 

FORH-E-1«0 T O€ 

RE»DO 

P?KEX.O 

NEH" 

S-E-J *0*6 
Sm-!nT<$h234 > 

SL-5-9W0236 

POKE’83.?_ 

POKE706.SN 
SPt- 

POJN* 'MUOVAI* -0- 
H»1 

OOSUB200 

PO IN" CU0I.IO4T PFN -N- 

m-3 

OO8UB280 

pois- lOftt» P8D r 'LE -8- 

K«9 

30 SUB200 

POJn" i**n p*»d?‘wE -o- 
K-7 


JOVSTIK -9-« 


LIOMT ©En -V-fc 


X P»OBLE -P-K 


v POCDLE -P-* 


3OSU0200 
*>RIn* acca 
GOTO: 08 
•• = * *> 

0«.SOCH*1> 

«•-S*0*<v> 

€_ en<8*>) 
B*-B«-_EP T *< SP«.f-LENC ««) ) 
c.*:nT-P 8 ' «mfTAp'^p* 

RETjRn 

182 182 107,219 212 209.190 
:-* c -55 220 133 106 169 0.133.183 
r«***65 212.133.t0«.169.23.133.107 
r«-&:69 208.133 110.169 19 133.109 
«07 13? 2-2,133.234.169.94 


£**«’33.233 32.170.177.168.1.196 
r-8 T «101.240 8. 192.8.240. ; 1.200 
:a-a*s 142.207.177,233-133.231.100 

r0"®23‘ 0 9* 160 0 76.169.207 
S8TO160 ;.177.105.73.233 41,31 
"8*0:6? 169 0 32.143.179 96.168 
a-*0 ^6 :e* 207. 160.1 . 177, 105 
“ a ’“160 149 0,32 145.179.96 168 
IP’*? 162.64.76.223,207.160.1 
* c ’--> 2.64.?6,223.2 07 . me 0 16J 
l*l*:<* 7 6 .223 287 ;f 0 1,162.126 
™ p -2* 173,2,220.133 2,:69.192 
-0*414: 2.220.142 0.220.234.234 
ro-«234 234.177.107 160 169 8 32 
r«"«143.179.l«3 2.141 2 228.«o 
307*96 


Dopo, il RUN viene chiesto 
di quali unità si dispone. Se 
abbiamo un'unica unità, ba¬ 
sterà confermare le risposte 
che sono presenti sullo 
schermo come default, se in¬ 
vece vogliamo che la copia 
avvenga tra diversi drives 
dovremo modificare i valori 
proposti e farli accettare con 
RETURN. Tutto questo 
permette l’utilizzo del pro¬ 
gramma anche su Dual Dri¬ 
ve. 

Verrà poi richiesto se utiliz¬ 
zare o meno la routine di 
formattazione. Prima che le 
operazioni di copia inizino 
dobbiamo ancora fornire al 
computer la traccia dalla 
quale vogliamo iniziare. 
Questo permette un notevo¬ 
le risparmio di tempo in 
quanto si copieranno solo le 
tracce che effettivamente 
contengono dei dati. 

Inizia quindi la copia con le 
richieste di scambio tra il 
disco originale e di backup. 


11 programma è completo di 
routine per il controllo di er¬ 
rori disco che vengono ri¬ 
chiamate ad ogni suo acces¬ 
so e di continui controlli 
sull’intervento dell'operatore 
le cui risposte sbagliate non 
vengono accettate. Tutto ciò 
porta ad una estrema facilità 
d’uso. 

È da notare l’uso dell’istru¬ 
zione WA1T alle linee 9, 55 
e 1010 dove il programma 
resta bloccato finché non 
viene premuto un carattere. 
La seguente GET A$, ripu¬ 
lisce la tastiera da caratteri 
che altrimenti sporcherebbe¬ 
ro il video. 


Game Read 


Ho presentato il programma 
con due listati. 

Il primo è in Basic c carica 
in memoria le routine in 
L.M. di lettura, l’altro è il di¬ 
sassemblato in mnemonico 
6502 delle stesse. 


0 print- rana -, — ■■ .• 

DINOX<233-6i> 

POKE33280 l 
PCXE33281.1 

t PRINT' COPV IL OCX C0**T€NT8 

2 PRINT**-- 

3 INPUT «HCOPV PRO" UNIT BINI' . UF 
OCSUB80e 

I)F-VPL<D9> 

4 INPUT' COPv TO UNIT RIMI . UT 

3C8UB000 

dt-v«l<d*> 

3 PRINT »3R-o- N£U DIS<‘ 

PRINT’CV/N) ? 

6 N0IT197.64.233 
0£TO« 

PRINTO* 

1F0«. yTHEN3OSUB1000 

7 INPUT «COPv 4R0H -ROCK 1@IMÌI ;T 
I PT< 1ORT >33-*€NPR I NT ' TT 

OTTO 7 

8 FGRC-1TO»0 

PRINT IMIN5ERT POSTER DISK' 

PRINT’«NE PRESS O <EV* 

9 UOIT157,64,233 
OET0R 

PRINT ’®®»#*: T 0 MCWENTU’’ 

10 lF -13 

OPENLP.jp. 13. ” I"♦6TRRCD©) 

0PEN3.UP.3. "••• 

OO6JB300 

0«-t 

BP-S 

FORX-0TC68 
13 OOSUB300 

20 PRINT* *r 

PRINT TROCK'T" SECT0R"6 T" 

23 PRINTRLF."B-P '30 

PRINT*lP."U 1 "3.DP.T.S 

3O8UB300 

30 PORL-0 T O2S3 

3ET03.09 
IFO*-"-THENO-0 

007040 

35 0«PSC(0») 

40 PX(L.X)-o 

NCHTL 
NEKTX 
CL08ELF 
CL06E3 

30 PRINT' MINSERT BOCKUP DISK ' 

PRINT‘ONE PRESS 0 KEV 

T-OO 

S-SB 

33 W0IT197.64.253 

OETP» 

PRINT ®tt,«!T « MOMENT® 

60 LF-14 

OPENk.F. U T • 13. " ! "•S"R*<1JT> 

0PEN5,UT,5. 

QOSUB300 

FORH-07360 

70 PRINTOuP,"B-P 3.0 

OOSJB300 
75 OOSJB300 

PRINT- T 

PRINT'TROCK’T- SECTOR'S’T 
08 PORL-07C233 

PRlNT#5CHRRr««(L.X>>, 

NCHTL 

PRINTRLF.'U2 "5iDT.T,s 
tCKTH 
OOSJB300 
90 CL06ELP 
CL0SE3 

nehtc 

PRINT’BCOPV END- 
END 

380 REN •«••«•■*•••*■•■••••• 

303 REO ««CHECK DISK ERRCR«* 

310 RFH ■«■«■•■•■•«»■•■•»*■• 

328 INPU7RLP.EN.EN*. ET,E6 
IFEN«0T WENRE TJRN 
330 PRINT TSOMCISK ERROR» 

PRINTEN EH*,E T .ES 
END 

508 REN ••••■••*••••«••••••• 

301 REM •* ODO. - i ? •• 

302 RE” •**•■••••*••■••••*•• 

303 6-SM 

IPT >0ONDT<19*ND6>20iHENS«0 

T»T ♦ 1 
RETURN 

310 IFT>l70NDT<230NDS>10TMENS-0 

T-TM 

return 

320 IF7>240NB t < 31RNDf>17TMENS-0 

T»T*1 

RETURN 

•30 IPT>30ONi;7<36PND6>167HENC-10 

OOTO90 

340 RETJRN 

008 REM ••■*•*••■■*■*••••••• 

801 REH •• WICH DRIVE ? •* 

802 ©E* 1 ... 

810 INPU-”DRIVE 0l«Ri • V 

iPrtaoDTHENMe 
820 DS-CHRS<D*48> 

RETJRN 

1800 REN •••••••*••••*•*■••«* 

1001 REM «RPORMOT NEW DISK»* 

1082 REM «*■*■•■*■•**•■*••••* 

1005 INPUT rSEDISK NONE .OR 
INPJT «riSH ID".I* 

1010 PRIN- «INSERÌ BOTKUP DISK" 

PRINT'«ND PRC6S B KEV" 

W0IT197.64.253 

0ETO* 

1020 PRlNi’B^orT 0 MOMENT- 

•030 0PEM3.L*7.!3. N"*STR*<DT>«. *»«♦ *?« 

C».06El3 
RETURN 
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T5JS II3SFMBLBTO DELLE F?OUT I NES DI LETTI IRA 
DELLE PORTE OIOCMI 


CF3F 

CF6P 

CF6i 

CP6? 
C F03 
CF04 
CF4? 

CF^6 

CF*7 

CF6f 

CFfB 

CF-6D 

ZW7\ 
CF7 3 
CF 73 
CF77 
CE7J 
CF7i 
CF70 
CF7F 
CEFI 
CF«3 
CF83 
CF87 
CF05 

CF0E 
CFM 
CFf2 
CF94 
CF9« 
CFf7 
CF*« 
CF9C 
CF*€ 
CFP! 
CF«2 
CFM 
CFP’ 
CFM 
CFP 7 

CFPp 

CFFF 

CFB0 

CFB2 

CF*P 

CFW 

CFM 

CFB» 

CFPC 

CFBF 

CFCP 

CFC2 

CFC3 

CFC* 

CFC* 
CFC« 
CFrp 
CFCF 
CFJJ1 
CFM 
CFD6 
CFDP 
CFDB 

cfd: 

CFDF 

cfe® 

CFF3 

CFFJ 

CFE’ 

CFE« 

CFEC 

CFEE 

CFEF 

CFF0 

CFFJ 

CFF3 

CFT4 

CFr« 

CFFB 

CFFE 

CFFF 


«7 

«2 

M 

BB 

DB 

D4 

CD 

C6 

LDP DC 
STA *«P 
LDP **8* 
8TP «69 
LDP #BS4 
STP l(C 
lDp e*t9 
STP |«t 
LDP MDf 
S’P «SE 
LDP **13 

s'o «sr 
LDP MCF 

6TP BFC 
STP «FÉ 
LDP •«?€ 
STP BFD 
;s* «aio® 

CPV «63 

BEO BCF9P 
c>v «tee 

BE3 FCFP1 
INV 

Jhp «rrec 
lDP <*F3>.v 

STP «FB 
JHP f B00FB ) 
PTS 

LDV e«00 
J«P «CFP9 
LDV #«*i 
l.DP C«*9>,V 
EOP e«FF 
PNC ••JF 
Tpy 

LDP 4*00 
*1391 

PT5 

LDV *«00 
JPP BCFBD 

LDv e«ei 
Li* <««D>.V 
TPv 

LDP 4*00 
JSP «B391 

»TS 

LDV e«0« 

LD* 4*40 

JHP «CFDF 
LDv *«0i 
LDP 4«40 
jn P «CFDF 
LDv ««00 
LDP ••90 
JHP «CFpF 
I>V 4401 
LO* 4«80 
SEI 

LDP «DC02 
STP «02 
LD« 4«C0 
STP «DC02 
STP «DC00 
POP 
K)P 
NOP 

LDP <««»>,V 
TPV 

LDP 4«P0 
J SR «B39*. 

LDP «02 
STP «CC02 
CUI 
PTS 


Sono t Otti C*>0 v#rr trino Uttti 4»n *-*99 1 

!• routine di letture di Tov«tlCV P#ad’e • l' 9*» P#r 


Vettore in »t91r.t '*69> p*r 1# loc«zi 7 T>< «nrpp- 

•DC01 »*l9utf'dtntl lt Co"»lex lr>terF*ce Pottt»** C*N*l 


Vettore in »t91*t iene r«6Bt «e»- le lortxtonl «E419- 
•D4*iP rl9vtr«ltT*tl il SootvS Interface Dedica 


Vdtto*** In »49lT>a Z»nc <«SD> P#n '• lortxtnnl « 70 :?- 
«0014 ni9u«ratntl II Video Ini #»>f »c* Controller VTC2 


V«ttOT« e#r t J«p indiretti 

n«ll* locazione «FC tltt dell 'lndlrl ggr) 

Vettore di 4trt*nxt Otti »»r j JNP Indiretti «CF9F 
n#ll* locazioni «FÉ 9 «FÉ («arte alte # l|r* f 
i II fpp«i »' convertito in Intero e netto i« ««4 e «< 

; ConFrontt v con 11 contenuto di «63 

- Se 11 coni.di «63-v tllor» C r 9P 
. V nt rtMlunte il 0 ? 

ì 8t t: tllort etce 
» Continue 11 COnte99lO 

• E rltornt dt Zè*C 

. Ctrtet In R l'v««iPo dato t ►artir* 0 t «CF3E 
■ Cor»Iota il vettore »•<* n TIP Indiretto 

• Salta alla locazione coti' Cornatati 

Se il n anero introdotto dell'USd > S allora rl*.~n« 

- pzzar* Jl V 

Salta a «CFP9 
; Carica il reo. v con i 

- L»99e e nette In P 11 JOV 11 Cui numero e' in V 
Sino la una NCT logico con un OR etclutlvo con 235 
Patcnera l bit 3, 6,7, B del reo. « 

. TratFeritce P In v 
Pzzera P 

, 7r»%f‘o*'i*9 P.V In numero intero • lo nette nel FPAel 
. Ritorna al BASIC 
Azzera u -e. v 
Salta a «CFBD 

• Carica V con i 

• Legge la LlO^t Pen, la coordinata dl»en«e oa V 

Come dalla linea CFPF alla linea CFB2 


Ritorna al P*»SIC 

Definite* «vale Paddi# e da «uale Por* 

. SeIta a eCFftF 

Deflnitce «uale Paddle e da «uale Port 
. Salta a «CFD* 

Definite* *uele *addle * da «uale Port 
Salta a «CFDF 

Definite# *uale Paddi# e da «vale Por* 

• Olaaei1 ita l'iRO 

Il Oata Direction Pe9i«ter e' dePotlteto in «02 
FredltPone il PD* Per l'ineut 

• Sceglie il Palo di Paddi# definito da w 


Le99e la Paodle definita da v 

Come dalla linea CFPF «hi linea CFB2 


RlPrittina II DDR 


Riabilita l'IRG 
Ritorna ai BASIC 


Per realizzare il programma 
si hanno quindi due possibi¬ 
lità. Se si possiede un moni¬ 
tor che accetti la notazione 
standard MOS 6502 si può 
digitare il secondo listato, al¬ 
trimenti si dovrà utilizzare il 
primo. Il programma in Ba¬ 
sic si compone di tre parti. 
La parte che carica in me¬ 
moria le routine in L.M. (da 
5 a 40), le linee di data che 
le rappresentano (da 5000 
a 5200) e un esempio di 
utilizzo del modulo in L.M. 
(da 100 a 220). Quest’ulti- 
ma, che in ogni modo non è 
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indispensabile, può essere 
omessa, costituisce una 
maschera continuamente 
aggiornata contenente i va¬ 
lori del Joystick, delle Pad- 
dles e delle coordinate X ed 
Y della Light Pen. Vediamo 
ora come, una volta caricato 
il primo o il secondo pro¬ 
gramma. si utilizza il tutto. 
L’uso di queste routine par¬ 
ticolarmente veloci è estre¬ 
mamente semplice. Basterà 
infatti definire una variabile 
uguale alla funzione USR 
(x). In essa la x sarà un nu¬ 
mero da 1 a 8 che corrispon¬ 


derà ai controllori come da 
tabella. 

La USR potrà anche essere 
posta a seguito di un'altra 
istruzione Basic in quanto 
essa stessa rappresenta il va¬ 
lore del controllore desidera¬ 
to che in pratica viene ad es¬ 
sa sostituito. 

Poiché per l’uso dello stat- 
ment LJSR il computer ha 
bisogno di conoscere l’indi¬ 
rizzo di partenza della routi¬ 
ne in L.M. esso si deve me¬ 
morizzare in due bytes adia¬ 
centi (785 e 786) nella nota¬ 
zione Low end High Ad- 
dress: è quello che fanno le 
linee 30 e 40. 

Nel disassemblato, comun¬ 
que commentato, sono an¬ 
cora da notare due particola¬ 
rità. 

L’utilizzo di una loop di ri¬ 
conoscimento del numero 
passato al L.M. attraverso la 
USR che costruisce un JMP 
indiretto alle routine neces¬ 
sarie. L'utilizzo della subrou¬ 
tine di sistema che trasforma 
il numero contenuto nel¬ 
l’Accumulatore 1 in virgola 
mobile in un numero intero 
e che Io memorizza in $64 z 
$65. La routine è richiamata 
in $B1AA e JSR $B1 AA. La 
simulazione del NOT logico 
con un OR esclusivo con 
$FF alla linea $CFAB. 
Aggiungo infine’ che i pro¬ 
grammi Basic sono stati da 
me listati con un program¬ 
ma che evidenzia i loop e 
che divide in linee successive 
gli statment facenti parte di 
una stessa linea Basic. Si de¬ 
vono perciò battere tutti in¬ 
sieme e separati dal due 
punti «:». 

Una «vita» 
per giocare 

V i proponiamo un’altra 
elaborazione del gioco 
«Vita», realizzata da Anto¬ 
nio Morra di Milano per i 
Computer Commodore. 
Prima di presentare il pro¬ 
gramma apriamo una picco¬ 
la parentesi per spiegare il 
meccanismo del gioco stes¬ 
so. Inventato dal Matemati¬ 
co dell’università di Cam¬ 


bridge. John Horton. questo 
gioco, che ha come unico 
giocatore il computer, è sta¬ 
to riproposto da moltissimi 
altri matematici. Si gioca 
con una scacchiera illimita¬ 
ta, formata da innumerevoli 
caselle, dentro le quali 
nascono c muoiono un nu¬ 
mero infinito di automi uni¬ 
cellulali. Data una certa 
configurazione iniziale, le re¬ 
gole con cui gli automi 
nascono, muoiono e si ripro¬ 
ducono sono le seguenti: 
ogni automa ha nove caselle 
circostanti, se almeno due 
delle otto non contengono 
un automa il primo muore, 
mentre muore anche se i vi¬ 
cini sono più di tre. Ogni au¬ 
toma con vicino altri tre ge¬ 
nera un nuovo essere nel 
turno successivo. Le morti e 
le nascite avvengono con¬ 
temporaneamente. 

La versione presentata dal 
nostro lettore è scritta com¬ 
pletamente in Basic e può 
quindi girare tranquillamen¬ 
te con qualsiasi computer 
Commodore (ed anche di al¬ 
tre marche se si traducono le 
poche istruzioni differenti). 

II gioco si svolge in una gri¬ 
glia di 28 per 18 caselle. I 
frequenti REM aiutano a 
capire il programma. 

Ecco la spiegazione delle 
principali routines: 
1300-1380: Cerca gli indiriz¬ 
zi di partenza e di arrivo del¬ 
la parte piena della griglia. 
1150-1240: Indicizza le cel¬ 
lule vuote immediatamente 
vicine a quelle piene. 
1000-1130: Routine per la 
stampa del tempo del gioco 
e dello «STOP» dopo ogni 
generazione. La continua¬ 
zione avviene dopo aver pre¬ 
muto la barra di spazio op¬ 
pure automaticamente dopo 

10 secondi senza interventi. 
10000-: Programma vero e 
proprio con formazione del¬ 
la griglia, input iniziali ed 
elaborazioni varie. 

11 programma è stato co¬ 
struito con un Commodore 
64 ma, come già detto, è suf¬ 
ficiente eliminare i simboli 
del colore (righe 110, 220 e 
10007) perché giri perfetta¬ 
mente su qualsiasi Commo¬ 
dore. 






Listato - Vita per giocare 


Un «Renumber» 
per il Vie 20 


100 PAINT"!:*' DIMVIM<18,28)■IRM=18:ICM=28 

110 C0$<l)=*'ka Sa" C0$(2)="+" C0*<3)= M *" IR/<=18 IC^28 

120 sp*= m 1 ■ 


13© PRINT" WWW 
140 PRINT" 

150 PRINT" 

160 PRINT" 

170 PRINT" 

188 PRINT" 

190 PRINT" 

200 PRINT" 

210 PRINT" 

220 GETA*IFA*= 


**tH****+*******^*****ft****** 

* VITA * 

*"TAB<33) 

e rv e 

#"TAB(33) 

* R. MORRA MILANO * 

$"TAB<33> 

t»^************************* 

SPREMI UN TRSTO PER INIZIARE") II" 
""THEN220 


II 


II 


WWW" 


230 PRINT"3": GOTO10000 


240 
250 : 

260 : 

1000 REM 

1050 PRI NT " SICW' 8PC''32)TI ME* PETURN 
1060 ^ 

1080 FG*=" " PRINTSP*"W3 'SPACE' PER CONTINtJARE 

1030 PRINT" M3WMB" T AB(33)"STOP" TM=VAL(RIGHT*(TIME*,1)>-1 IFTMC0THENTM=9 
1100 GETFG*: IFFG*=""ANBVAL(RIGHT*f TIME*, l))OT*4THENl 100 
1110 PRINT "8WWKIH" T AE<33) " 

1120 PPINTSP*" *W 

1130 GOSUB1050 : FG*=" " RETURN 

1140 • 

1150 IFRW=1THEN1130 REM **♦* CREA I VICINI VUOTI ********** 

1160 VI =VIM(RW- 1 . CW) IFVI=0THENVIM<RW-1, CW)*4 : REM AC <-»■»++< + 

1170 IFCW>1THENVI=VIM<RW-1,CW-1) IFVI=0TH£NVIM<RW-1,CW-1)=4REM AS m*<<m 
1180 IFCW<28THENVI=VIM(RW-1, CW+1 ) : IFVI=0THENVIM(RW-1 ■ CW+1 )=4 : REM AD »■ < ♦■♦■ «« + 
1130 IFCtOl THENVI=VIM<RW, CW-1 ) IFVI=0THENVIM(RW, CW-1 )=4 : REM FS < ■ < <«*<< 

1195 IFCW<28THENVI=VIM<RW,CW+1) : IFVI*0THENVIM<'RW,CW+1)=4 REM FD «<+ < « «- < 
1200 I F RW=13THENRE TURN 

1210 IFCWMTHENVI=VIX(RW+1,CW-1 ):IFVI=0THENVI7.rRW>l,CW-1 )=4 REM BS •-*-** * +* 
1220 VI=VIJi(RW+l , CW IFVI=0THENVIM<RW+1,CW)=4 REM BC * < <<<< < 

1230 IFCW<28THENVI=VI?<<'PW+l,rw+l) IFVI=0THENVIX''PH+1,CW+1)=4 REM BD '<+<« < « 
1240 RETURN 
1230 ^ 

1260 : 

1270 : 

1280 ^ 

1290 

1300 IFRW<= I RMTHENIRM*RW- 1 REM INIZIO RI 

1310 IFCW<=*ICMTHENICM=CW-1 REM INIZIO CO 

1320 IFPW>=FRMTHENFRM=PW+1 rem fine riga 

1330 IFCW>=FCMTHENFCM»CW+ 1 REM FINE COLO 

1340 IFIRM<1THENIRM=1 

1350 I F ICM< 1 THENICM=1 

1360 IFFRM>18THENFRM=18 

1370 IFFCM>28THENFPM=28 

1380 RETURN 

1390 : 

1400 
1410 
1420 
1430 : 


-*-*■ 


10000 PRINT"! 1111111111122222222" 

10007 PRINT" 1234567890123456789012345678 3JTEMP05J" 

10010 F0RRW=1T018 PRINTRW, IFRW>9THENPRINT"II"; 

10007 PRINT" 1234567390123456789012345678 a*TEMPOSJ" 

100in FORRW=1T018 PRINTRW, IFRW>9THENPRINT"II" ; 

10020 F0RCW=1T028 PPINT-T";:NEXT PPINT"I "'NEXT PRINT"IBH": •F0RW“1T028 : PRINT" - " 
NEXT 

10030 PRINT:PRINT"^INSERIRE I PRIMI ORGANISMI UNICELLULARI" 

10040 INPUT"QUANTE CELLULE INIZIALI ",A* 

1005O I FVAL ( A* X30RVAL ^ A* 1 > 1 5THENPR INT"TT; GOTO10040 


A bbiamo scelto questo 
programma di «Re¬ 
number». realizzato da 
Giancarlo Ammirata, perché 
pensiamo possa interessare 
un gran numero di lettori 
proprietari di un Commodo¬ 
re VIC 20. 

Le linee di qualsiasi pro¬ 
gramma vengono memoriz¬ 
zate dal VIC a partire dalla 
prima locazione di memoria 
disponibile, sotto forma di 
numeri. Il primo numero è 
sempre uno 0 che ha lo sco¬ 
po di comunicare al sistema 
operativo l'inizio di una 
nuova linea di programma. I 
successivi due numeri sono i 
byte di L.INK. Moltiplican¬ 
do il valore del secondo per 
256 ed aggiungendo il valore 
del primo si ottiene l'indiriz¬ 
zo di memoria della succes¬ 
siva linea di programma, 
numero che si ottiene sem¬ 
pre moltiplicando il secondo 
byte per 256 ed aggiungendo 
il primo. 

A questo punto iniziano le 
vere e proprie istruzioni del 
programma. Ogni lettera, 
numero, istruzione BASIC, 
segno di punteggiatura, ecc. 
viene tradotta dal VIC in un 
numero che corrisponde ad 
esso, risparmiando così una 
buona quantità di memoria. 
Vediamo, ad esempio, come 
viene immagazzinata in me¬ 
moria la linea: 

100 A=A+1:IFA>256 

THENA=0 

Supponiamo di non avere 
espansioni di memoria. La 
prima locazione di memoria 
disponibile sarà allora la 
4096: 

4906:0 

4097:22 4097:16 > Byte di 
LINK - 16*256+12-4118 
(indirizzo d’inizio della suc¬ 
cessiva riga di progr.) 
4099:100 4100:0 > Nume¬ 
ro di linea 

4101:65 > lettera A 
4102:178 > segno = 
4103:65 > lettera A 
4104:170 > sceno + 
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4105:49 > valore 1 
4106:58 > segno : 
eccetera. 

Alterando quindi le opportu¬ 
ne locazioni di memoria è 
possibile cambiare i valori 
dei vari numeri di iinea. 11 
programma da renumcrare 
deve necessariamente avere i 
numeri di linea seguenti le 
istruzioni del tipo GOTO, 
THEN, GOSUB, ecc. com¬ 
posti da cinque cifre. Così il 
numero 100 deve diventare 
00100. 

Il problema sorge dal fatto 
che se il nuovo numero è 
più lungo di quello già esi¬ 
stente bisognerebbe spostare 
verso il basso tutte le loca¬ 
zioni di memoria che seguo¬ 
no per far posto al (o ai) ca¬ 
ratteri in più. Suggerisco, 
eventualmente, di usare una 
piccola routine in linguaggio 
macchina, poiché il basic è 
troppo lento. 

Vediamo ora come opera in 
dettaglio il programma: 
linee 

60006-60050 

Conta il numero di linee del 
programma da renumcrare 

60060-60090 

Crea il vettore A () con i vec¬ 
chi numeri di linea 

60100-60280 

Controlla i rimanenti nume 
ri di linea seguenti le istru 
zioni tipo GOTO, GOSUB 
THEN 

60290-60310 

Incrementa del passo il nuo¬ 
vo valore del numero di li¬ 
nea. Il programma gira con 
il VIC 20 senza espansioni. 
In caso contrario basta va¬ 
riare il valore della variabile 
P alle linee 60000. 60060, 
60100 con quello d'inizio 
della memoria libera con la 
relativa espansione (1024 
con la 3K, 4608 con la 8 o 
la 16K). 

Per variare il passo di renu¬ 
merazione basta variare 
PAS alla linea 60100. Ecco 
l’elenco delle variabili usate: 
P = inizio memoria libera 
C = Numero di righe di cui 
è formato il programma da 
renumerare 
BL = Byte di LINK 
NL = Numero di linea con¬ 
siderato 


Listato - Vita per giocare 


10068 
10066 
10070 
10000 
10030 
1009*5 
10100 
10110 
10115 
10120 
10130 
10140 
10130 
10160 
10170 
10180 
10130 
10200 
10210 
10220 
10230 
10240 
10500 
10510 
10600 
10610 
10620 
10630 
10640 
10650 
10655 
10660 
10670 
10680 
10630 
10700 
10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
10820 
12000 
12010 
12020 
12030 
12040 
12050 
12060 
12080 
12090 
12100 
12110 
12120 
12130 
12140 
12150 
12160 
12170 
12180 
12190 


V0tf=VALCAf) 

'PRINT-T* 


ppint"ti 

PRINT" TI" 

FORW=ITOVC« 

PRINTW- CELLULA " 

INPUT "SPIGA" ",fl$ 

1 F VAL ( Rf X 1 ORVAL < A* )> 18THENPRINT " T ;■GOTO 10090 
PRINT"")".. 

INPUT H SCOLONNA" ";Bf 

I FVAL< B$ X 1ORVAL < Bf >28THENF'R INT"T , GOTO 10110 
PRINT'H " :PRINT"T)" ; 

RW=VAL<A*> :CW=VBL(B*> : IF VIXtRW,CW>*1THENPRINT"«" , 00T010090 

VI 7 <RW ,CW) = 1 GOSUB 1150 : GOSUB 1300 

PR I NT " WWI" J PRI NTSPC < CW ) ; FORNII* 1 TORW : PR1 NT ” M" ; 

NEXT- PPINT"3 ■" 

PRINTSPf NEXT 

PRINTSP*"» ***** 1* GENERAZIONE ***** 

TIME#="000000"-GQSUB1050 


REM ***SCHNNING RETICOLO**#**#** 

FGt="": F0PPW= I RXT0FRX : FORO W= ICJIT0FCX : IF V17. ( RW, CW ) *0THEN 12000 
m*0 ■ IFRW=1 THEN 10640 

IFCW<15THENVI=VrX(RW-l,CW+t> IFVI=10RVI=2THENTVX*TVX+1 REM AB 
VI«*VIJKRM-1 -CU> IFVI=10RVI=2THENTVX=TVX+1 REM AC 

IFCU>1THENVI=VIX<RW-1,CW-1>: IFVl = 10PVI=2THENTVZ=TVX-*-l REM AS 
IFCW> 1 THENVI =VI5£(RW< CW-1 ) IFVI=1ORVI =2THENTVX=TVX+1 REM FS 
IFCW<28THENVI=VIX(RW.CW+1) : IFVI=10RVI=2THENTVX=TVX+1 REM FD 
IFTV:O3THEN1070O 
IFRW=18THEN10700 

I FCW> 1THENVI =V I 7' RW+1, CW-1 ) IFVI* 1 ORVI *2THENTVX=T VX.+1 REM BS 
VI»VIX(RW+1.CU> IFVI = 10PVI=2THENTV'2=m+! REM BC 

IFCWC2STHENVI = VI V. (RW+1, CW+1 > ■ IFVI = 1 ORV I =2THENTVX=TVX+1 REM BD 
REM 

vi=vi?;'RW,cw> 

REM SE MUORE 
IFVI=4THEN10770 

IFTV5C<20RTV?i>3THENVIX<RW■ CW)=2 FG=1 GOSUB1300 
REM SE GENERA 
I FV 104THEN l2000 

I FTVri*3THENV I ?£ < RW » CW)«3 ; FG=1 GOSUB 1150 GOSUB 1300 


NEXT:GOSUB 1050 :NEXT'GOSUB1050 
REM QUADRO MUTAZIONI 
FORPW»IRXTOFRX•F0RCW=ICXTOFCX 
IFVIJKRW/CW>=0THEN1 2060 

PRINT" «©MI" ; : PR I NTSPC (CW).: : FORM» 1 TORW PRINT : NEXT 
PR INTC0* < VI Y. ( RW , CW ) ) 

NEXT GOSUB 1050 : NEXT: GOSUB1050 :GOSUB1080 


REM QUADRO NUOVA GENERAZIONE 
F0RRW= IRXT0FRX : FORCW= ICXT0FC7. 

I FV 1 ’/. ( RW, CU ) =0THEN 12160 

PRlNT"«OT*r, PRINTSPC(CW); F0RW=1TORW PRINT' 
I FV 1 7 ( RW, CW ) = 1 ORV 1 7 ( RW, CW ) «3THENPR INTCOf(l) 
IFVIXCRW. r:W)<=2THENPRINT" " : VI/CRU • CW>*4 
NEXT NEXT GOSUB1050 NG=NG+1 
PRINTSPf"H *#*#*"NG 
IFFGTHENFG“0 GOTO10500 
PRINTSPf'in SF1NE EVOLUZIONE" 


" NG=1 


M" : : NEXT 
VIX(RW/CW.' = 1 


END 


RVPI'V. 


A ()= Vettore con i vecchi 
numeri di linea 
AI, = Byte alto del numero 
di riga 

BA = Byle basso del numero 
di riga 

IN - Numero di riga di par¬ 
tenza 

PAS = Passo d'incremento 


C'O = lunghezza del numero 
da cambiare 

V$ = Stringa contenente il 
valore da cambiare 
V = Valore da cambiare 
MN = Posto nel vett. A () 
dove si trova il valore da 
cambiare 

NV = Valore nuovo da so- 


stituire 

Questo programma va digi¬ 
tato in coda ai programma 
da renumerare, il quale deve 
avere i numeri di riga più 
bassi di 60000. 

Per farlo girare basta dare 
un RUN60000. 
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Listato - Renumber 


*0000 RFM******************** 

1 REM* RENUMBER * 

60t’0i REM* BV * 

*00«>3 REH*OI0NCRRLQ RMMiRfirR* 

►•E004 REM* PER E. C. CLUB * 

6.1005 REM******************** 

«0006 P>*i?6 C-l 

■-.0010 DEEENBc X)-PEEKCX*2)*256*PEEK<X*1 > 

«0020 BtFFNNL<X>*PEEK<X*4)*256+PEE«<X*3) 

6.1070 BL-PN BL<P> -1 NC*FNNL<P> 

P0040 IFNO60000THEN60060 
«0050 P*BL ■ CO 1 OOTC'60030 
*0060 > P=4096 

«0070 FORI"0TOC-1 
-0060 BL“FNBL<P)-1 Nl*PNNL<P> 

60030 R< l>*NL F'*BL NEXT1 

60100 p*4096 AL*00 *0*10 1N»B« PAS-10 

-0110 FORT*■TOC Bl-PNBL<P>-1 

60)20 POKEP*-»,rl PÙKEP*3.BA 

60)30 F0RJ-PT08L CC-0 

60 140 IFPEF < ' .U'.L ! BVRNpFEEK , J>01 41RNBPEEK (.001 67THEN602S0 
-0-.10 IFPEE. J-l -:4eORPEEK .1*1 »57 ThEN 602R<8 
60,60 FORK> -lTOr 

6H170 SOS*• s>EE' J* -48, J-J+l V-VAL<V0) COCCHI 
60100 IFPEEK- T*l,«4 r; s fEFK(J*1. >57THENMH»1'OOTO60200 
-.1,00 NEXTKK 

60200 fork-oto:-i 

606)0 IFA<K)“'T-tN60230 

60220 MN-MN+1 mEXTk 

60230 NV*1N+PP;* mn-> N,**STR*(HV> 

602*0 R0P'.*2'3lEN •• * 

-0250 P06E.T-C "IE». N. «,L.)>p+43 

60260 NEXTl 

60265 IFl EN<MVS O-r.uéeiJfU 

60270 PORL-LEN n * *15 P0KEJ-C0*u,32 NEXT 

6.0280 NEXT.T 

60i?0 P-BL BP*PP-F6: 

60300 IFBhCO.S'O :--*r«-25€ 6u_»Rv+l : OOTO60300 
«03)0 NEXTT 

RFADV. 


Listato - Allunaggio 


10 DKK ALLUNAGGI'-' 

ifi REM BY LUCA ARCO— SZC F PC CLUB 

30 rem itruzidm 
40 prjnt-clr/n:»'-" 

50 PRI!fT”D 8 VI 3U1DAJU L'ALLUNAGGIO DI UNA NAVICELLA" 
fi/ FIINT'CH! Il ROTA A 120 a D'ALTEZZA SULLA LUNA” 

7/ PSIHTOCOt.' 7-LC’ITA' INIZIA:' I 3600 RM/H;HA1 A " 

ufi ptur'Di'P'fTzi.'Nr.ir:: •: 'biondi, da s a 200 " 

9 fi ppiRrns ni casi": ■ : r- la prenata (puoi ah- ” 

1/0 print" ‘r v- : 5 rJfssuiRr ih canuta li-" 

110 P*«T"9LXA)iLA CC TI VIZIALE "• DI 1600 SO. 

12 / pRiin M *BU 0 KA ■ a: p-tx: tasto per continuare” 

13/ CET A3: 1“ A*»* •- 

14/ FRINT*CLR/HOK£' 

15 / PR INTTAB( 5 ) ; . : 1 / ' Al T" ; TAB(15)"VFL*;TAB(20)”CAR3";TAB(25)"SERD" 

16/ PCINT 

17/ REM INIZIALIZZAZ! > : ;z::-l INIZIALI 

16/ CR*l«00/TR.0:V/=- : *£)=' ■' 

19 / input"icg”;Icg 

2// IF(KGo0)AND( (EK : > ».’?/ TÌ1N190 

21/ AO0.//1 6-( KG/5//0 
22/ CR=NR-rc 

23/ I? !':•</ THBN 3 30 : " ' "FOLLO LIVELLO SERBATOIO 

24/ POR 1.0 TO 9.9 *TEP : '>' INIZIO DEL CICLO DI dieci SECONDI 

23/ VE.V/.ACM : ?rx “ - INCITA' 

26/ AL-i20-(VE*I»AC*(I*I1 2>/’//0 : SEK CALCOLO ALTEZZA 
27 / IP AL < -fi THEH 350 '“ROLLO ALTIMETRO 

26/ PRIKT”(2CURS0R VP)" 

29/ ?,-;<TTA:a(5)INT(I*:/:. 1/;7A=( /)INT(AL*1/0)/!00ìTAB(15)IHT(VE*1//)»3<I 
TAB(20)INT(W):TAS(25 ’ '3 
30/ HE NT I 

310 TE.TE.10S 80.AL: V0.VE : .“M AGGIORNAMENTO VACABILI 
32/ GOTO 19/ 

33/ PRINT"HAI FINITO II CARBURANTE A DISPOSIZIONE !” 

34/ PRINT"SEIAA";ALj”KK DI ALTEZZA... ADDIO... “1G0T04// 

35/ IP VE 1/ THE» 38/ 

36/ PRIHT"SEI ALLUNATO DOPO” ; TE.I :”S' 'CONDÌ ALLA VELOCITA'” 

3”/ PI(IHT”DI";VEj"rM/Ht LA NAVICELLA " ' DISTRUTTA!" : GOTO 4// 

3 »/ rcir.T”~ r : EELtcrx - nt allunato dopo”;TI>Is*' , econbi" 

19/ PRI’.T”KAI CDNSECVAT0";CR|"r3 DI CARBURANTE) COMPLIMENTI !" 

4/0 PRINTOVUOI CONTINUARE? ( S/N ) * 

41/ GET A$: TE A$«* ” THEN410 
420 IE A$."S"THCH14/ 

4 3/ STOP 


Allunaggio 
con il C*64 

llunaggio» è uno 
dei più classici gio¬ 
chetti per calcolatrici tasca¬ 
bili. Home e Personal Com¬ 
puter: alla guida di un mo¬ 
dulo lunare dovete scegliere 
la strategia ottimale di uso 
dei retrorazzi per frenare 
progressivamente senza 
schiantarvi al suolo in preda 
alla gravità del pianeta. 

Il listing che proponiamo, 
scritto per CBM 64 dall'ami¬ 
co torinese Luca Arcostan- 
zo, uno dei più fedeli sosteni¬ 
tori della rubrica giochi, ha il 
pregio di essere molto chiaro 
sia per il programmatore sia 
per chi gioca, e l'adattamen 
to a un eventuale altro har¬ 
dware dovrebbe risultare 
molto facile. I dati del vostro 
computer di bordo vengono 
aggiornati in tempo reale: te¬ 
netevi forte e andate a co¬ 
minciare! 


Sprite-Edìtor 
grafico per 
Commodore 64 

P rima di passare alla 
descrizione del listato di 
Enzo Farina di Grugliasco 


facciamo una piccola intro¬ 
duzione tratta dall’articolo a 
cui si riferisce il lettore cioè 
«Uno Spritc F.ditor per gesti¬ 
re ia grafica» apparso sul n. 
3 del 15 settembre 1983 di 
Personal Computer. 

Per prima cosa ricordiamo 
che uno Sprite è un’entità ad 
alta risoluzione costituita da 
21 righe di 24 punti ciascu¬ 
na. Ogni Sprite (fino ad un 
massimo di otto contempo¬ 
raneamente) è gestito dall’in¬ 
tegrato che si cura della ge¬ 
stione video (Video Interface 
Chip). Per programmarne 
uno bisogna definire la se¬ 
quenza di byte, selezionare il 
colore e scegliere la posizio¬ 
ne. Cambiando i valori di X 
e Y è possibile muovere lo 
Sprite. 

11 programma presentato 
permetteva di costruire velo¬ 
cemente uno Sprite, visualiz¬ 
zandolo mentre lo si sta 
creando, correggerlo e me¬ 
morizzarlo su nastro. Per ul¬ 
teriori chiarimenti consiglia¬ 
mo comunque di leggere 
l’articolo in questione. 
Passiamo ora al programma 
inviatoci dal nostro lettore. 
Le modifiche consigliate al 
programma originale con¬ 
sentono la programmazione 
degli Sprite anche in alta ri¬ 
soluzione e non solo in mul- 
ticolor. 

L'opzione viene richiesta al- 



Listato - Sprite Editor 

20 V-53248:POKE V*21.OPPONE V*23.0:P0KE V*29.0:POKE V*28 .0 : RE6T0RE 
2 1 FOR X-OTO 1 5 : READ A»(X)-NEXT 

30 FOR X-IT02l:F0RC-iT024;AIR.Ci«4A:NEXTHF.XT:F0R X» IT063:B < X) -0 :NEXT 

50 FOR X-IT063 POKE 83 1 *X.BIXI :NEXT: POKE V«2l,4 

51 PRINT “(citi(cg><ra*l MODE ( cfI “! PR1 NT ’ M MULTJCOLOR’ 

52 PRINT “H HI-RES * 

53 CET At: IF Al»"“ THEN 53 

54 IF AI*“N* THEN PQKE V*28.4 :CN-2: GOTO 60 

55 IF A» b “H* THEN POKE V♦28.0■CN* I : GOTO 60 

56 COTO 53 

70 PRI NT * <» C AN. ": I F CN« l THEN PR J NT “2 SC - BLU CH. “SCOTO 90 
160 R»S»X*I Y-1» «40 C-A(T.X) POKE R.C:IF CN*2 THEN POKE RW.C 
180 IF Al * “ ( c d I “ THEN X*X*CNMF X>24 THEN X» 1 
105 IF Al* * l e » I ” THEN X-X-CmlF X< 1 THEN X-23 
190 IF Al» “ <* ’ THEN A(Y.XI=46:IF CN=2 THEN AlY.XMI-46 

195 IF Al >"0* AND Al<"4* AND CN«2 THEN NR-48 * VAL l Al> : A « T . XI-R: 

A( Y . X* 11 * R 

196 IF Al»'2* AMD CH*I THEN A«Y.X)*50 

290 R*S*X*(Y-11»40:C“(A(Y,XI♦ 1 20> :POKE R.C:!F CN-2 THEN POKE R*1.C 

291 COTO 150 

300 IF CH* 2 THEH 312 

302 Y = 0 •’ F 0 R R» 1 TO 2 ! : FOR X=0 TO 2 > » V * 1 : B < Y1 -0 : FOR C-0 TO 7: 

IF A(R. X«8*C* 1) 050 THEN 306 
304 B l Y l =B t Y ) OR 2 <7-0 

306 NEXT:NEXT:NEXT:FOR X* 1 TO 63:P0KE 83i*X,B(X; iNEXT:COTO 140 
312 eoa* la lina* dal prograaaa orginalt 
3M ’ 

316 

3 10 casca I I ara 
320 

330 PRINT * <koaa I ( 1 6 cgllr«v)‘At Si 0 HO* 

410 POKE V*R, C :PR INT" (Eoa»: <3 cg)*JUF CN-2 THEN 418 

4 11 IF P»33 THEN 450 
4 12 IF R-4 2 THEN 440 
413 RETURN 

418 IF R-Ì3 THEN 450 


wm 
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l’ini/io. e non può essere 
modificata durante l’Editing: 
il disegno si ottiene digitando 
il «2» (1 e 3 sono inattivi e 
non compaiono del resto 
neanche nel menu): per il re¬ 
sto l'uso è invariato. Pubbli¬ 
chiamo nel riguardo l’elenco 
delle linee da modificare o 
da inserire ex novo o da can¬ 
cellare. 

Leggere 
i diversi floppy 

N ella gamma Commo¬ 
dore vi sono attual¬ 
mente più unità a doppio 
floppy: 

CBM 3040. DOS 1.0 
CBM 4040. DOS 2,1 
CBM 8050. DOS 2,5 
E vi sono dei problemi d’in¬ 
compatibilità fra questi diffe¬ 
renti supporti. In certe appli¬ 
cazioni può tornar utile di¬ 
sporre di una procedura che 
riconosca ciascun tipo di 
dischetto evitando quindi 
possibili errori. Come proce- 



Listato - Leggere i floppy 


LISTATO ' 't ** 

10 ADI OeriHIZIONC DELLA IJHI tq DISCHETTI 
20 REM 

100 0PEN80/8,15,"IO" 

120 0PEN87,8•7,"0*" 

130 GET#87,A»,CL0SE87 

140 IR A»*CHR»CD THEN PPINT "CBM 3040" END 
150 IP A»*"A" THEN PPINT "CBN 4040 "END 
160 PPINT "CBN 8050" END 


riCUPA 1 

CBN 30-*0 4040 egri 8050 

NONE DEL DISCHETTO 143 -158 5 - 20 

ID 161-162 323-24 


LISTATO 2 

v . 

10 PEN LETTURA DEL NONE 0 DELLA - ID - DI UN DISCHETTO 
100 N-3 PEN PER CBN 8030 AlTINENTI N«143 
110 OPEN80,8- 13,"IO" 

120 0PEM86,8,6,"*0" 

130 POP 1*1 PO N-1 GET»86,A» NEXT I 
140 N»-"" TOP 1*1 TO 16 
150 CET»86-A# IP A#*CHP»C160) THEN 17fl 
160 N**N*4A» 

170 NEXT I 

180 CET#86,A*.A# 

100 I»a"" TOP 1*1 tq 2 

200 GET#86 • At ir Af=CHP*C160J 7HEN220 

210 I»*I»+A t 

220 NEXT I 

230 PPINT "NONE * •• N# - " ID = ", U 
240 END 


Listato - Caccia di stelle 


t «IKT-y r*!W«,W 

2 n»!KT-» va ir»» aiTO« 888- 

3 miKT-naa z-lt xmr .-oh • 

a poiktt— rr-rtn a strw jhd sprceship «tvts" 

3 frint-ìbr»* teep auHv froa rime* - 

6 F0RI-7168T07679 POTEI. PEEKCI425688) (CXT 

7 DRTR24.24.68.66.68. 126,162, 162,162,182 126,68 68.60,24,24 

8 WTR8.7.63 252252 63.7.8.0 224.232,63,63.252,224,0 

3 0RTR24. 36-231. 182.66,68.66.129,34,24.24.231.231.24.24,24 

ia MTV.a a.24.24,a.a a,153.66.36.129.129 36.66.153.68.126,255.129.66,36 24.(8 

11 F0RR-7432T07432-71 REPDR POKER. RAEKTR 

12 PRIHT-T P0KE36869,253 P0TE36879.23 

13 Vt-36878 S1-368T4 POTEVI 13 $4-36877 2-3*720 

14 F0RD-1TQ25 

13 H-INT(RND( 1 >4338>*77S8 

16 P0KEM.38 P0KEM-Z.6 i€«TB 

17 K-1B *-7836 POTEX4V.33 POKEX-V-Z.Z 

18 »-ie F-8876 POKEP-F.37 P0KEP-F-Z4 

19 8-ia a-eiae poker*837 pokea-b-z.4 
TP tir-" amen* **9 ss-33 $-e 

23 PRIHT'V -FLlGHT-HAER" 

24 PRINT'MI 4 STARS HIT a- 

29 0CSU838 OOS0888 00SUB36 00SVB196 00SUI38 G0T028 
3e RErarovE POCKET a 

31 PRINT-W «-Ti* GET A4 

32 1FM.-2- THEN9-1 S5-33 
34 ;faj» / TWENf-2 SS-36 

36 IFRa-’X 1 THENS-3 $$-33 
39 IFRt-". -THEN6-4 $9-34 
39 PCKESi 248 

!F?-lTHENPOKEX-v 96 POTEX-V-2 1 x-x-1 

42 !F?-2'HENP0KEX-v.96 POTEX-v-z i x-x-i 

44 IFS-’THEHPCiKEX-v 96 oOKEx-v-2 t v-v-22 

46 1F6*4Th£nPCKEx*v 96 ’0KEX*V*2 1 v-v-22 

30 lFV-67-'46TVEVS*4 SS-34 V-v- 22 
32 1FX-22TMEVS-1 $9*33 x-x-t 

34 IFV->9164-«E*«.*3 $3-93 v-v-22 

56 ifx— stme- 19-2 $$•?* x-x-i 

37 !FP£EK<X*v ; -HE* - F-F -, thehooto : 2e 
3P :fpEEK<x-y>-41TnENG0T0128 

39 IFBEEK(*-o-39ThEhOOSUB 158 
61 POxESl.0 


62 POKFx-v.?? POKEX-v-2,2 RE'L’RN 
88 8CHW0VE 1$T GH1P4 

81 K-l BL-32 B0-INT<RNS( 1)816) 

82 1FB0-1TKNBL-41 BC-3 P0K£$1 238 

83 1FPEEK(X.V1.PEEK(F-P1TKHP0KE'1 8 GOTO uà 

94 IFv'F-HENF.F-22 POXEF-P-22 Bl POkEF-f- 22-; fc FGKEF-F 37 r-yfr.t.- 4 
96 IFV>F*HEh»--F422 POEF4P-22 32 pckEF.p,37 P0kEF-p-:.4 
88 IF«P'«V-P-1 POKEF-P-1 32 P0KEF-P.3? FOKEF-P-Z 4 

98 1FX3PTHENP-P-1 POKEF-P-l BL PT-fF-F-Z-i pi- pnrtc.e 3- rn.fr, r.- 4 
96 P0KE91 8 

99 PET'jPt. 

188 REA8A0VE 2HB 3N1P8 

181 IFT-.:0TMENRETulfc, 

182 K-l BL-32 B0-1NT<8^0(1)84) 

184 IFB0-2T.CNBL-41 BC-3 PCKESI,228 

188 IFV<|ThEnf-B-22 POKE8-B-22 Bl F3KE8-B-::-: K P0KE8-B 37 p-VEP-F-’ 4 
118 IFV-3FTMENB-F-22 PGKEp-B-22 Bl P0XEA-F-22-Z BC POKER- 8 37 POTEA-bIz 4 
112 irx<AT*NA-P-i P0KE8-B-1 BL P0KE8-B-1-2 PC F-XEP-B 37 P0kE«-?*2 • 

114 1FX>8TmENA-A -1 P0KE9-F-1 Bv »CTEA-F-Z—: B' FOKEP-B 77 prvfA-F-- 4 
116 P0KES1 8 RETURN 
128 REA8CRR3H6 

121 P0KES4 228 POKEX-V 39 POTEx-v-Z 2 

122 FO8L-13TO0$TEP-1 POTEVI L 
124 F0Pti.iTn289 n£xth 

126 POTEX-v 48 PCTEX-v-2,2 NEXTL POTE34.8 

128 PPINT-wmaa«BMN8C9nc w 

138 P8INT-SMB PL9V 808IN . 26 N' 

132 GETW 1FA8.-V-THENSLIN 
134 IF8*-"N-THENFRINT"3' GOTO 160 
136 00T0132 
138 «X4XIT stari 

151 P0TES1.238 . 

152 T-T-l 

154 POTES1.0 ' 

156 RETURN 

168 P*INT"6*BVI 8PLE9SE T08N H£ OFF a" 

162 OOT0162 


178 6EH VOU I9JST CATCH THE $TA«$. 

171 REA AFTE» 8 STAR? TAC 2NI SMIF HILL START. 

172 REA TKV HILL LRV AUC* TEE» AURV. 

173 RER tEEP OCINO. 



m 
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dere se un programma lavo¬ 
ra su questa unità floppy o 
su quest’altra? Leggendo la 
Directory ($0 o $1). Nel pri¬ 
mo carattere letto si determi¬ 
nerà su quale unità è stato 
formattato il dischetto: 

CBM 3040 CODE ASCII 
PRIMO CARATTERE = 1 
CBM 4040 CODE ASCII 
PRIMO CARATTERE = 
65(=«A») 

CBM 8050 CODE ASCII 
PRIMO CARATTERE = 
67(=«C») 

Il listato 1 vi dimostra quan¬ 
to asserito. 

Questo metodo non deter¬ 
mina direttamente su quale 
unità di dischetto si sta lavo¬ 
rando, ma su quale supporto 
è stato formattato. Attenzio¬ 
ne però, è pericoloso scrivere 
su un dischetto 4040 con un 
3040. Il metodo che vi pre¬ 
sentiamo è particolarmente 
utile in questo caso. Quando 
avviene la formattazione si 
fornisce al sistema un nome 
(fino a sedici caratteri) ed un 
identificatore *ID* di due 
caratteri. 

Quando il nome è formato 
da meno di 16 caratteri esso 
viene completato da «Shift 
Spacc», code Ascii: 160. 

La stessa cosa è valida per la 
- ID - per questo motivo si 
sconsiglia di mettere alcuni 
«Shift Space» nel nome o 
nella ID di un dischetto. Per 
leggere la ID faremo uso del 
programma con listato 2, 
nulla ci vieta di combinare il 
programma di listato uno 
con quello di listato 2. 

In queste procedure viene 
utilizzato il Drive 0. per il 
Drive 1 bisogna sostituire 10 
e $0 con J1 e $ 1. 


A caccia di stelle 
sul VIC 20 

U n bel programma di 
conquista stellare, ab¬ 
bastanza corto ma ricco di 
interesse, va segnalato sen¬ 
z’altro ai lettori anche se le 
istruzioni del listato sono in 
lingua inglese. 

L’obiettivo del gioco è di an¬ 
dare a zonzo per un univer¬ 


Listato - Bubble Sort 

10 RE fi UUbBLfc fcORT 

iN k b 1 “Muserò di doti ";N 
38 LUÌ DATO<N > 

40 POR 1=1 t0 N . 

50* INPUT “DATO ";DAT 0<1> 

50 NEXT I 

?0 REM GRU INAMEN I0 
80 EUR 1=1 1U N-l 
SU EUR L = 1 *•* 1 TU N 

100 Ih DATCKIX =DAi CKLJ* THEH 5U0 
110 REM SCAMBIO 
120 SA0E = L'Al0<n 
ICO DA1CK1 >=DAT0<.L> 

140 DAI tKL, 1 =SAUE * 

500 KEXr L 
510 Nfc’XI 1 


so popolato di stelle, demo¬ 
lendo tutto quello che capita 
sotto mano: ma natural¬ 
mente le cose non filano cosi 
lisce, perché due astronavi 
nemiche vi daranno la cac¬ 
cia e semineranno mine va¬ 
ganti per cercare di fermarvi. 

Ultimo dettaglio: la seconda 
astronave nemica entrerà in 
gioco solo dopo che avrete 
completato la distruzione 
delle prime otto stelle. 

Le istruzioni di gioco e i co¬ 
mandi da usare sono scritti a 
video all’inizio (righe 2-5 del 
listato): buon divertimento e 
occhio alle mine! (I..F.) 


Sorting col 
metodo 
«Bubble Sort» 

L j ordinare dei punti nu¬ 
merici o alfabetici è 
un compito classico per un 
computer. 

Chiaramente l’ordinamento 
può essere fatto in ordine 
crescente od in ordine de¬ 
crescente. 

Per ordinare dei dati esisto¬ 
no molti metodi; in questo 
numero di Personal Compu¬ 
ter vedremo quali sono e 
quali usare secondo la capa¬ 
cità del computer a nostra 
disposizione. 

Anzitutto ordinare dei dati 
vuol dire cambiar loro di po¬ 
sizione fisica o logica e per 
far questo usiamo la tecnica 
dello scambio. Il procedi¬ 
mento per tale scambio è il 
seguente: 

Confronto Dato (I) con Da¬ 
to (L) se sono già ordinati 
proseguo con incrementare 
I, altrimenti scambio, cioè: 

SAVE = DATO (I) 

DATO (I) = DATO (L) 
DATO (L) = SAVE 

Uso cioè una variabile tam¬ 
pone SAVE temporanea. 

L’ordinamento Bubble 
Sort è il più diffuso ma non 
è né il più veloce, né quello 
che occupa meno memorie, 
ma è il più facile da capire. 


Problemi 
di listato 


C ercheremo, in questo ar¬ 
ticolo. un nuovo modo 
di listare i programmi per i 
computerà Commodore. Il 
problema deriva dal fatto 
che la Commodore usa ca¬ 
ratteri speciali, non ASCII, 
per rappresentare importanti 
comandi, colori, caratteri e 
cosi via. Non è sempre pos¬ 
sibile in un listato stampato 
per differenziare tra i carat¬ 
teri grafici speciali, uguaglia¬ 
re con stampanti specifi¬ 
camente costruite per questi 
computer. Per esempio; una 
linea verticale sottile in un 
solido blocco nero, può rap¬ 
presentare alcune funzioni 
differenti su un Commodo¬ 
re. Piuttosto che cercare di 
rappresentare la grafica spe¬ 
ciale di questi computers, 
abbiamo stampato un testo 
che descrive la funzione. Per 
esempio la funzione HOME 


sui Commodore 64/VIC 20, 
che sposta il cursore nell’an¬ 
golo alto a sinistra dello 
schermo, è rappresentata 
graficamente con una S in 
campo inverso. Proprio 
quando questa S in campo 
inverso è «leggibile» dal li¬ 
stato. non rappresenta quel¬ 
lo che è accaduto. I nostri li¬ 
stati rimpiazzano la singola 
S in campo inverso con la 
stringa (HOME). Il cuore in 
campo inverso, che rappre¬ 
senta la funzione pulisci vi¬ 
deo. può essere listato come 
(CLEAR). 

Una lista completa di queste 
conversioni di listaggio è ri¬ 
portata di seguito all’articolo 
per rendere facile le trasla¬ 
zioni. Il listato delle lince che 
hanno caratteri grafici spe¬ 
ciali nel generatore di carat¬ 
teri EPSON FX 80, sono 
presentati sotto nel nuovo 
formato. 

Spero che questa nuova tec¬ 
nica possa rendere i pro¬ 
grammi più comprensibili e 
facili da usare. 


Note - Problemi di listato 

1) rappresenta il tasto SHIFT. 

2) = rappresenta il tasto Commodore nella parte bassa a 
sinistra della tastiera 

3) CTRL rappresenta il tasto CTRL 

4) i caratteri grafici sono rappresentati nel listato dai tasti 
battuti, richiesti per generare il carattere 

5) un numero direttamente dopo un (SIMBOLO), indica 
i multipli del SIMBOLO: (DOWN6) significa battere 
DOWN per 6 volte. 
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Problemi di listato 

Tabella dei comandi C/674 - Tastiera w wio m . tasti funziona pnursraabiij 


(clear) 

* CLH 

{pulitura video 

(FI) 

a 

(non) 

H0KB. 

{ritorno cureore a caea 

(F2) 

* f2 

(IRSBRT) 

* IRST 

{inserimento carattere 

<F3) 

f3 

(Dorn) 

CHSR DOWlf 

;cureore *iù 

(F4) 

*f4 

(UP) 

• CRSR UP 

{cursore eru 

(F5) 

n 

(HIOHT) 

CRSR RIGHT 

{cursore a destra 

F6) 

* f6 

(LBFT ) 

* CRSR LEM 

1 (cureore a alniatra 

:f7) 

n 




:p8) 

* te 

COLOBI 





(BLACK) 

CTRL 1 BLJC 

{nero 

CARATTERI SPECIALI 


(WHITB) 

CTRL 2 TOT 

;M&nco 

(PI) 

n * PI Croco 

(RED) 

CTRL ) BRD 

•rosso 

(POURB) 

£ Sterlina 

(eri) 

CTRL A CYR 

{blu verde 

(UP ARROW) 

1 Freccia m 

(PURPLE) 

CTRL 5 PUR 

{porpora 

(BACK ARROW) 

A-Precela Indietro 

(3RKKK) 

CTRL 6 CRN 

{verde 



(BLUE) 

CTRL 7 BLU jbln 

IORARLI ROR PRESKRTI 

SULLA TASTIERA 

(TKLLOW) 

CTRL 8 YKL 

!giallo 



(RVS) 

CTRL 9 RVS 

OR {inverso colori 

(BIS-) 

CHE» (8) 

(HVSOPP) 

CTRL O RVS 

OFF {fine inverso colori 

(ERB-) 

CHRS (9) 




(LOWKR CASK) 

CHR* (1«) 

(ORAWJK) 

- 1 

{arancio 

(UPPER CASE) 

CIRI (142) 

(BROWR) 

- 2 

{marrone 

('RETORE) 

CURI (142) 

(3REY 1) 

- ì 

iBrillo 1 

(BEL) 

CHE» (20) 

(ORBI 1) 

» A 

•grigio 1 

(SPACR) 

CHRS (ISO) 

( ORSI 2) 

- 5 

(grigio 2 



(LI ORESR) 

■ 6 

{verde chiaro 

Ho TÉ 


(LT BLUE) 

» 7 

{azzurro 



(3REY 3) 

» 8 

(grigio 3 




Crifto grafo re 
i programmi 

Q uesto programma, rea¬ 
lizzato da Massimo 
Roberto Garibaldi, permette 
la codifica di altri program¬ 
mi scritti in Basic. 

Può essere utile quando si 
deve lasciare copie di pro¬ 
grammi riservati alla portata 
di estranei. 

Il programma gira su un 
VIC 20, ma può essere facil¬ 
mente trasportato su qua¬ 
lunque Personal che ne uti¬ 
lizzi il sistema di memoriz¬ 
zazione delle linee Basic. 
Tale metodo è basato sulla 
trasformazione delle singole 
istruzioni in numeri, chia¬ 
mati TOK.EN, in base ad 
una tabella memorizzata nel 
computer e riportata sul ma¬ 
nuale dello stesso. 

Il programma da me ideato 
esegue un OR esclusivo di 
tutti i token del programma, 
in base ad una chiave alfa- 
numerica che l’operatore do¬ 
vrà inserir»sia durante la co¬ 
difica che la decodifica. 


Il programma inoltre è com¬ 
pletamente trasparente all’u¬ 
tente, in quanto si adatta au¬ 
tomaticamente alla confi¬ 
gurazione di memoria di cui 
il VIC può essere dotato. 
Questo è reso possibile dalle 
linee 1 e 2 del listato, che 
calcolano rispettivamente la 
fine del programma e la fine 
della memoria RAM dispo¬ 
nibile. 

I valori ottenuti in base ai 
puntatori del VIC, vengono 
poi usati alla linea 3 per spo¬ 
stare la fine della memoria e 
proteggere quindi alcuni va¬ 
lori indispensabili all’esecu¬ 
zione corretta del program¬ 
ma seguente. Il cuore del 
programma sta tra la linea 

200 e 220. In particolare è la 
210 che si occupa della co¬ 
difica e decodifica vera e 
propria. 

Come già detto essa consiste 
in un OR esclusivo tra i to- 
kens del programma ed ogni 
carattere della chiave di co¬ 
difica. L’OR esclusivo, che 
non esiste nel Basic del VIC. 
è stato reso mediante una 


difTerenea tra l'OR e l’AND 
dei valori da manipolare. 
Sempre in linea 210, con 
l’ultima istruzione, viene 
esclusa la possibilità che tali 
valori siano eguali, nel qual 
caso si avrebbe un’errore 
nella codifica. 

È da aggiungere il fatto che 
il programma assiste l’utiliz- 
zatore dall’inizio alla fine. È 
infatti completamente auto¬ 
matico l’accodamento del 
programma da modificare al 
programma principale che, 
terminata la codifica, si au¬ 
todistrugge, permettendo di 
salvare direttamente su na¬ 
stro o disco il programma ci¬ 
frato. 

L’orologio 
sveglia 
con il C64 

P rendo spunto dalla let¬ 
tera di Massimo Rober¬ 
to Garibaldi per pregare cor¬ 
tesemente i nostri lettori di 
allegare al listato del pro¬ 
gramma una adeguata spie¬ 
gazione del suo funziona¬ 


mento, sia per aiutare i letto¬ 
ri a capirne il meccanismo 
(copiare pedestremente un 
programma non aiuta sicu¬ 
ramente ad imparare a pro¬ 
grammare) sia per aiutare il 
sottoscritto a verificarne il 
funzionamento. 

Passiamo ora al programma 
del nostro lettore. 

Il listato tratta di un orologio 
sveglia che si inserisce in per¬ 
manenza nell'angolo supe¬ 
riore destro dello schermo e 
può quindi essere utilizzato 
durante l’esecuzione o la rea¬ 
lizzazione di programmi per 
tener conto del tempo im¬ 
piegato. oppure come sve¬ 
glia vera e propria. Il pro¬ 
gramma. interamente in lin¬ 
guaggio macchina, basa il 
suo funzionamento sulla 
modifica delle routine di in- 
terrupt permettendo il conti¬ 
nuo aggiornamento basato 
sul clock esterno. 

A questo punto aggiungia¬ 
mo due righe: può accadere 
che, anche battendo corret¬ 
tamente il programma, 
quando si imposta SYS 832, 
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Problemi di listato 


10 PRINT "(CLEAR) GENERATORE DI CARATTERI" 

1010 BY=FX+13*CH:PRINT "(HOME)"; 

1020 POR J=7 TO 0 STEP -1:K=2(UP ARROW)J 
1440 POR J=7 TO 0 STEP -1:K=2(UP ARROW)J 
2015 PRINT "(HOME,RIGHT8CARATTERI #";CH;"(LEPT) 
2040 IP TS="(POUND)" THEN CP=225:GOTO 2025 
2050 IP TS="(UP ARROW)" THEN CP=87:G0T0 2025 
3000 PRINT " (HOME)*; QQS; LLS; "(RIGHT )" ; INPUT CH 
3020 PRINT "(HOME)";QQS;LLS;S9$ 

4000 PRINT "(CLEAR)";QQS;" + ACCESO / - SPENTO / 
(UP ARROW) PIENO" 

4010 PRINT"(DOWN)PI LEGGE CARATTERE 
5130 PD=ASC("."):PRINT"(CLEAR,BLACK)"; 

5160 CH=0:F1S="(PI)":F2S="(P2)":F3S="(P3)" 

5165 P4S="(P4)":P5S= "(F5)":F6S="(F6)":F7S="(F7) 
5170 CLS="(RIGHT)":CRS*"(LEFT)":CUS="(UP)" 

5175 CDS="(DOWN)":HMS="(HOME)":CSS="(CLEAR)" 

5180 ZL$=RTS+"(UP,RIGHT14)" 

5190 ZRS="(LEPT17)" 

5196 QQ$="(D0WN10)" 

5197 LLS="(RIGHT18)" 

6010 PRINT"(HOME,D0WN17)"; 

6210 PRINT"(HOME,D0WN16)"; 

6300 PRINT"(UP)";ELS;BS;" CARICATO"GOTO 2010 
6600 PRINT RTS;"(UP,RIGHT19)"5 
6604 PRINT "(LEPT18)";. 

7200 PRINT QQS;"(DOWN)"; 

7210 PRINT RTS;"(RIGHT16)"; 

7220 PRINT CH;"(LEPT) (LEFT7)"; 


(SPACE,HOME)"; 


(POUND) MEZZO / 
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Listato - Crittografare i programmi 


CR I TTOORHF I FH 
BV M-R-O- SOFTWRRE 

1983 


0 PRINT’Tas CRITTOGRAFIA 

1 I=PEEK< 45 >+PEEK < 46 > *256-2 :H*INT <I/256>:L»I-H*256 

2 F“PEEKC55>+PEEK<56)*236-4 : HF*INT C.F/256} : LF=F~HF*256 

3 P0KE51,LF;P0KE55,LF:P0KE52,HF:P0KE56,HF:POKEF,PEEK<43>:POKEF+l,PEEKC44):PGKEF+ 
2.- L : POKEF+3/ H ' 

4 PRI NT" «SMETTI LR CRSSETTR NEL REGISTRRTORE POI PREMIUN TRSTO" : URIT197,255,64 

5 PRINT"43 > "L" :Pr44, "H" : Lr" :L=PEEK<F> : H=PEEK<F+1 ) : PRI NT " @Fr*43, "L" : Pr44, "H’ 1 

: or20" 

10 P0KE631 a 19 :PQKE632,17 :P0KE633,17 :P0KE634,31 : P0KE635,13 : P0KE636,19'P0KE637, 13■ 

P0KE198.. 7 : END 

20 INPUT " rJKSWCH IRVE " ; K* 

25 IFK*=""THEN20 
30 F=PEEK<55}+PEEK<56>*256 
40 k'-PEEK <F+2 > +PEEK < F+3 > *256+4 •• C- 1 
50 GOSUB200:K*K+1:C«C+1 

60 IFPEEK<K>-0THENK-K+5 : IFPEEKCK-3>«0ANDPEEK<K-4 > =0THEN100 
80 GOTO50 

100 F=PEEK<55> +PEEKC56>*256 :L=PEEK<F+2>:H«PEEK<F+3>•P0KE43,L:P0KE44,H: END 
200 IFLEN < K$ > CCTHENC*1 

2i0 P-PEEK<K> = P= <PORASC<PRNDRSC<MID$<K*, C, 1 )>> : IFP-0THENRETURN 
220 POKER,P=RETURN 

RERDV. 


i 


non si veda comparire alcun 
orologio. Niente paura, non 
è il programma che non fun¬ 
ziona, sono solo le cifre del¬ 
l’orologio che hanno lo stes¬ 
so colore dello sfondo del te¬ 
leschermo, e quindi è suffi¬ 
ciente digitare POKE 982, n 
(n = numero del colore desi¬ 
derato). 

Il gioco «Isola» 
per VIC20 
e C64 

sola» è un grande gio¬ 
co di strategia statica 
proposto su Personal Com¬ 
puter n. 1/1983, ed è com¬ 
mercializzato in Italia dalla 
Ravensburger. 

L’obiettivo del gioco è di 


«isolare» l’avversario muo¬ 
vendo sulla apposita scac¬ 
chiera come un re di scacchi. 
Le dimensioni della tavola 
da gioco sono a scelta dei 
giocatori e variano da un 
minimo di 7 x 5 a un massi¬ 
mo di 9 x 7 caselle. 

La particolarità cui «Isola» 
deve il suo nome sta nel fat¬ 
to che una volta effettuata la 
mossa, la casella di prove¬ 
nienza viene cancellata dal 
gioco e resa intransitabile. Il 
programma richiede i nomi 
dei giocatori, identificati da 
simboli diversi, e gestisce le 
mosse, controllando che le 
richieste siano lecite: i com¬ 
menti nei programmi e nelle 
mappe video spiegano il re¬ 
sto, tuttavia è il caso di ricor¬ 


dare che è possibile muovere 
solo su caselle ancora transi¬ 
tabili, non è lecito calpestare 
l’avversario e infine perde 
chi resta senza mosse valide. 

Al termine della partita il 
calcolatore si complimenta 
con il vincitore. 

Vista anche la dimensione e 
la semplicità dei listati, nella 
versione del nostro amico di 
vecchia data Andrea Ac¬ 
quaviva di Rovigo, vi sugge¬ 
riamo di provare questo gio¬ 
co. che ha riscosso molti 
consensi ed è stato conside¬ 
rato uno dei migliori propo¬ 
sti lo scorso anno. Buon di¬ 
vertimento! 

(L.F.) 



☆ ☆☆☆☆☆☆☆☆☆☆"A 
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Listato Orologio sveglia 


110 QOSUB210 

120 PRINT"nW»*!# IL TEMPO NON ASPETTA *#»" 

130 PRINT 11 ISTRUZIONI PER L' OROLOGIO : W" 

140 PRINT-SVS 032 : ACCENDE 

130 PRINT"SVS 994 :SPEGNE 

160 PRINT"POKE 982,N : CAMBIA COLORE 

100 PRINT"FI :SPEGNE SVEGLIA" 

190 OOSUB3S0: END 

200 REM LE ROUTINES POSSONO ESSERE USATE INDIPENDENTI 

210 CH-0:FORI-832T01008 

220 READA:POKEI,R:CH-CH+A:NEXT 

230 FORI-679T0742:READA:POKEI, A =CH-CH+A:NEXT 

240 IFCH-23388THENPRINT"QWH0A...DATA ERRQR" : STOP : NOTE CHECKSUM 
250 INPUT"nWPfflIW AM 0 PM ?" ; A* : INPUT"» ORA ?";H 
260 PRINT"KB DIGITA IL MINUTO DI PARTENZA" 

270 PRINT" PREMI RETURN PER INIZIARE»" 

290 IFH>12THENA*-"P": H-H-12 : GOTO290 
290 IFH>9THENH-H+6 : REM CONVERSIONE IN BCD 
300 IFLEFT* < A*,1>-"P"THENH-H+120 
310 C-56328:POKEC+3,H:POKEC+1,0 
320 INPUTM : M-M+1NT < M210 > #6 

330 POKEC+2,M:POKEC,0 : SVS832 : PRINT"KB SE NON VA BENE, PREMI UN TASTO 
340 FORI-1TO1000 : IFPEEK <199)THENPOKE198,0 = SVS994:GOTO230 
350 NEXT=RETURN 

360 PRINT"QUNDO VUOI LA SVEGLIA?»" 

370 INPUT"AM 0 PM"; A* = A*-LEFT*<A*,1> 

300 INPUT"A CHE ORA?";H 

390 IFH>12THENA#-"P" ; H-H-12 : GOTO390 

400 H-H-6#KH>9>-128*KA*-"P"> : REM CONVERTE IN BCD E METTE INDICATORE AMXPM 
410 INPUT"A CHE MINUTO" ì M 
420 M—M+INT < MX10)#6 

430 C-56328 ; POKEC+7,136 = POKEC+3, H =P0KEC+2, M : POKEC, 1 = POKEC+7,8 =REM SVEGLIA 
440 POKE54273,99 = P0KE54278,240:P0KE54276,21 
430 P0KE34287,2 = POKE34290,17 = REM SUONO 
460 RETURN 

470 DATA120,173,20,3,162,89,234,234,234,142,20,3,173,21,3,162,3 
480 DATA234,234,234,142,21,3,88,96,173,11,220,170,41,15,24,105,48 
490 DATAMI,67,4, 138,16,4,162,16,16,2,162,1,142,77,4,162,32 
500 DATA41,16,240,2,162,49,142,66,4,173,10,220,170,41,13,103,48 
510 DATAMI, 70,4, 138,74,74,74,74,24, 105,48, 141,69,4, 173,9,220 
320 DATAI70,41,15,103,49,141,73,4,139,74,74,74,74,24,103,48,MI 
530 DATA72,4,173,8,220,105,48,141,73,4,169,32,141,65,4,141,76 
540 DATA4,141,79,4,162,14,137,24,4,202,208,230,169,38,141,68,4 
530 DATAMI, 71,4, 169,46, MI, 74,4, 169, 13, MI, 78,4, 169, 1, 162, 13 
560 DATA157,65,216,202,208,250,76,167,2,120,169,49,234,141,20,3,169 
570 DATA234,234,141,21,3,88,96 

580 DATA173,13,220,41,4,240,3,141,225,2,173,225,2,240,40,165,162 
590 DATA106,106,106,41,12,141,32,208,41,4,141,24,212,240,11,162,3 
600 DATA189,223,2,157,33,4,202,208,247,165,197,281,4,208,6,142,225 
610 BATA2,142,24,212,76,49,234,0,1,12,1,18,13 

READV. 
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Listato «Isola» per VIC 20 


10 REM #####*####**#####*#*#####*♦### 


20 REM * * 
36 REM * I S 0 L A * 
35 REM * * 
40 REM * PERSONAL COMPUTER CLUB * 
45 REM * * 
50 REM # VERSIONE VIC 20 * 
78 REM * DI ANDREA ACQUAVIVA * 
30 REM * * 


90 REM ##*.**♦:*****###******#*****#**# 


100 REM 

110 REM * VARIABILI STRINGA PER I SIMBOLI BELLE DIREZIONI * 

120 M$(l)« M * l 'V " : M$<2>*"Wnil ":M*<4)*"<- " 

130 Mf" :M$C6)»" rMSTJ "■M$<7)**"MI'llt “ :M$<8)*"»Urh " 

140 C*=" 

150 PRINT"73"i " Si ISOLA BV P.C CLUB ■" 

155 REM * ISTRUZIONI INIZIALI * 

160 PRINT"XM» PER MUOVERE USARE ■” 

170 PRINT-JW - 1 = - 2 = ,, JM4<2) : PRINT"KW - 3 = 

180 PRINT" - 4 = " ; M$<4> : PRINT" nifi - 6 = ".;M$<3>," - 7 = ";M*<6> 
190 PRI NT " m - 8 = " ; M$ < 7 > ; " - 9 = ", Mt< 8 > PR I NT PR I NT 

195 PRINT" - PREMI UN TASTO 
200 GETR$ ; I FR$= "" THEN20O 

210 REM * RICHIESTA NOMI E DIMENS. SCACCHIERA * 

220 PRINT"73"; " 31 ISOLA BV P.C CLUB ■" 

230 PRINT"NOME DEI GIOCATORI" PRINT 
240 PRINT INPUT" 1’ ";P1* 

250 PRINT INPUT" 27 ";P2* 

270 PRINT"MB SCEGLI LE DIMENSIONI DELLA SCACCHIERA • " PRINT 

280 PRINT" < MIN. 7X5, MAX.9X7 )" : PRINT 

290 INPUT" ORIZZ. " ■ X 

300 PRINT INPUT" VERT. ";V 

990 REM * DISEGNO DElLA SCACCHIERA E DEI SIMBOLI * 

1000 PRINT"73"; " 31 ISOLA BV P.C CLUB 5" 

120O A=7748■ B=(X*2-2)■C=38468 
1258 PORR*1TCY: FOR I «8TGBSTEP2■POKER+ I, 102 POKEC+I , 6 
1350 NEXT 


1400 
1450 
1500 
1550 
1608 
1640 
1650 
1660 
1678 
1680 
1690 
1693 
1700 
1705 
1718 
1715 
2490 
2500 


H=A+44 : C=C+44 
PRINT PRINT 
NEXT 

Gl=7880:02=7834+1 
P0KEO1,90 : P0KEG2 • 83 


GOSUB3500-'PRINT" CHI GIOCA PER PRIMO PRINT 
INPUT" 'V 0 '2' ";P$ 

print"t;c$ 


P*VAL<P$) 

IFP<1ORP>2THEN1640 

:FP=2THEN1710 


REM PRINCIPALE *** 4 LINEE PER LA GESTIONE DEL GIOCO #** 

T=G1 ^ GOSUB35O0 : FCRR*1T05 : PRINTC# NEXT■GOSUB3500 PRINT " MUOVE 
PRINT :PRINT"MOSSE : " :GOSUB25O0 : POKET , 90 G1=T GOTO1710 
T=02 : GOSUB3500 : FORR=1T05 : PRINTC* : NEXT•GOSUB3580 PRINT " MUOVE 
PRINT:PRINT"MOSSE :": GOSUB25O0■POKET, 33■ G2*T GOTO1708 
REM * SUBRCUTINE PER INDIVIDUARE LE MOSSE POSSIBILI * 

M=8 RESTORE 


♦ >";P1$ 
« > " P2$ 
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Listato «Isola» per VIC20 

2510 F0RJ-1T08 
2520 FERDD 

2530 !FPEEK < T+D)=102THENPRINTMI(J > M=1 

2540 NEXT 

2680 IFM*0THENGOSUB3500 : GOTO3550 

2690 REM * SUBRQUTINE PER CONSENTIRE LA MOSSR EFFETTUATA * 
2700 GETfl* IFA$=""THEN2780 


2758 

2760 

2780 

2785 

2790 

2808 

2810 

2820 

2908 

3008 

3010 

3500 

3510 

3520 

3550 

3560 

3630 

3610 

3628 

3624 

3638 

3648 

3658 

3660 

3700 


IFfì$="5”THEN2908 

IFVfìL< A* X1ORVAL < A* >>9THEN2900 

F0RJ=1T09 

PERDI' 

I FVfìL < At > “JANDPEEK(T+D >=102THENPOKET.. 32 : T=T+B : RETURN 
NEXT 

REM * MESSAGGIO D' ERRORE * 

RESTCRE^ F0RJ=1T03:RERDD:NEXT 
GOSUB3500 

FORR=1TO10 PRINT'TTIOSSR NON VALIOR " : FORR1=1T0280 : NEXT : PRINT"H";Ff:NEXT 
GOTO2700 

F'R I NT ’ " A" ■ PORR* 1TO16 : PR I NT : NEXT 
RETURN 

REM * SCRIVE IL VINCITORE * 

I FPEEK T > =?3THENV$=Pi $ 

IFPEEK ( T ) =98THENVf=P2$ 

PORR*1TC3 : PRINTCi : NEXT 
GOSUB3508 

FORR=1TO20 : PRINTC$'PRINT" V I N C E ";V$;" ■" 

PORR1alTO100 :NEXT:PRINT"T;=NEXT 
PRINT"MB GIOCATE ANCORA <S/N)" 

GETNi'IFNf=""THEN3648 
IFN$="N"THENPRINT"Jfl ARRIVEDERCI !" 

IFNf="S" THENPR I NT "T ■ GOTO270. 

DA. A**, 44.4t .* ■ 2 .• “46 . ~44~42 • 42. 44 ■ 46 .• ~2 .0.* 2 • “46. ~44 ■ “42 


10 

28 

38 

35 

40 

45 

50 

60 

70 

80 

100 

110 

120 

130 

140 

145 

150 

155 

160 

170 

180 


REM 
REM * 
REM * 


Listato «Isola» per C64 


ISOLA 

PERSONAL COMPUTER CLUB 
COMMODORE 64 


* 

* 

* 

* 

* 

* 

* 


REM 
REM 
REM 
REM 
REM 
REM 
REM 

REM *** PROGRAMMA ISOLA DI ANDREA ACQUAVIVA *** 

REM * VARIABILI STRINGA PER I SIMBOLI DELLE DIREZIONI * 

m ( i >= " « kv " m$ < 2 > = " i " : m - < 3 > =” mf n " ; m$ < 4 >= " <•- 

M$<5> = " -> ":Mf(6)«" rXKl " M*<7>=" Mimi ":M$fS^ = " K/Hn 

Ci=" 1 . 

P0KE53281,0 

PRINT"ri" ; " a I 3 0 L A BV PERSONAL COMPUTER CLUB ?" 

REM * ISTRUZIONI INIZIALI * 

PRINT "WWW PER MUOVERE USARE I TASTI INTORNO AL 5" 

PRINT "MB - 1 = ";Mt<l>; ” - 2 = ";M$<2) -PRINT”'SUB - 3 = 

PRINT" - 4 = ";Mf<4) : PRINT 11 .Ì(W - 6 = ",M$(5>.:" - 7 = 


";m$(3>; 

";MM6> 
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Listato Isola per C64 

190 PRINT":*® - 8 = ";M$<7>;" - 9 = ";M<(8) : PRINT : PRINT 

195 PRINT:PRINT" - PREMI UN TASTO PER CONTINUARE 
200 GETR* IFR*=""THEN290 

210 REM * RICHIESTA NOMI E DIMENS. SCACCHIERA * 

220 PRINT"T.: " a I S 0 L A BV PERSONAL COMPUTER CLUB »" 

230 PRINTTAB< 10> "SWWNCME DEI GIOCATORI":PRINT 
240 PRINT ; INPUT" 1" GIOCATORE ";P1$ 

250 PRINT:INPUT" 2* GIOCATORE ";P2* 

270 PRINT-MCSCEGLI LE DIMENSIONI DELLA SCACCHIERA : " 

280 PRINT"< MINIMO 7X5, MASSIMO 9X7 )*':PRINT 

290 INPUT"0RIZ2. ";X 
300 PRINT: INPUT"VERT. ",V 

990 REM * DISEGNO DELLA SCACCHIERA E DEI SIMBOLI * 

1000 PRINT"T;" S I S 0 L A BV PERSONAL COMPUTER CLUB S" 

120O A*1154 B=<X*2~2 >:C=55426 

1250 FOPR=1TOV•FORI=0TOBSTEP2 : POKER*I 102 POKEC+I,1 
1350 NÉXT 

1400 A“A*80:C=C+P0 
1450 PRINT PRINT 
1500 HEXT 

1558 01=1394:02=1312+1 

1600 P0KEG1,98•P0KEG2-83 

1640 OOSUB3500 PRINT"CHI GIOCA PER PRIMO 

1650 INPUT" ■' 1 ' 0 '2' " > Pi 

1660 PRINT M mC$ 

1670 F-7AL<P$> 

1630 IFP<10RP>2THEN1640 
1690 IFP=2THEH1710 

1695 REM PRINCIPALE 4 LINEE PER LA GESTIONE DEL GIOCO *** 

1700 T=G1 : G0SUB3539 PRINTC1;C X -RINT"SMUOVE : < ♦ > ":P1 $. C* 

1705 00SUB3508 ?RINT"MOSSE : " OOSUB2500 : POKET,98'01=T: GOTO1718 
1718 T=G2 G0SUB3588 : PRINTC*. ; Ct PRINT"SMUOVE < • > ";P2*;C$ 

1715 GOSUB3508 PPINT"MOSSE "; :GOSUB2508 POKET,83 :G2*T : GOTO1700 

2490 PEM ♦ SUBROUTINE PER INDIVIDUARE LE MOSSE POSSIBILI # 

2580 M=8:REST3RE 
2510 F0RJ=!T08 
2520 READD 

2530 IFPEEK< T+D)=102THENPRI NTM$ < J>: M= 1 
2540 NEXT 

2630 IFM=0THENGOSUB350C:G0T03558 

2690 REM * SUBROUTINE PER CONSENTIRE LP MOSSP EFFETUA7A f 

2700 GETAf I c Af=""TMEN2780 

2750 ir A$= ; '5"THEN2S38 

2768 IFVAL<Pf)<1ORVPL'fif>>STHEN223C 

27S0 FOR >1T39 

2735 READD 

2790 IFVAL f ’A$>=JANDPEEK t T+D>=102THENP0KET, 32 T -T+D RETURN 
2300 NEXT 

2*10 REM * MESSAGGIO D / ERRORE * 

2328 PEST3RE : FOR J- 1TOS READD NEXT 
2980 GOSUF3500 

3000 FO e P=1TO10 : RRIHT"'MOSSA NON VALIDA" FORRl=iTO200 NEXT : PRINT'”!";Ct NEXT 
-018 30702708 

3508 PR I NT ■ 48" : PORR* * IO 19 PR I NT NEXT 
35!8 RETURN 

3520 PEM * SCRIVE IL VINCITORE * 
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Listato Isola per C64 


3:f,!50 

60 

on 

10 

*•524 

3630 

3640 

3650 


: FPEEr. •- T >se3TH£HVt*P 1 1 

l FF’EEK < T > =90THEMV$=P2f 

POPP* 1 T03■PPINTC#:NEXT 

PP i s’T " F'jpp= 1TO17 ' PPI NT HEX T 

F0RP=1TQ28 ' PRINTCf PRINTTft3<5 > "13 

FORRi=lTQ100 NEXT ?R!NT"T: NEXT 

PPINT" ICORTE RNCCRfl < 3 / N >" 

GETNf IFN$=""THEH3640 

'SU*= " N" THENPRI NT " «RRRIVEDEPCI ! " 


I N C E 


"; V$; " 


3660 

2700 


IFN*="S"THENPRINT"T OCTC270 

I-PTR78 80.82,-2 2,-82,-80,-78,78,80,82,-2,0,2,-82,-80,-78 




Listato Prugne 


■READY. 


ANTONIO MARTINO " 
MAURIZIO MASCHERONI 

MILANO" 

NOVEMBRE 1983" 


10 PRINT*' -“ 

20 PRINT" **• PRUNE ***" 

30 PRINT" -" 

35 PRINT 
40 PRINT" 

50 PRINT” 

80 PRINT 
65 PRINT" 

70 PRINT" 

80 PRINT 
90 PRINT 
100 GOTO50000 

200 PA-1064 SC-0 V=54272C4=0 NS-0 

210 C<1)«10 FGRX-2TO10 C(X)-2 : NEXTX ; NF-3 

220 Ul-9 W2-5 UI3-11 W4=l 1 W5=6 W6-3 FORX-1TO10 SCX)=0 NEXT 

300 P0KE53281 , U6 6OSUB42000 GOSUB43000 

1000 NS-NS+1 

1100 REM 

1102 REM POSIZIONO PRUGNE 

1104 REM 

1110 PF=15£3 C1=0 C2=0 NG=G FX=0 FY=-1 NT=0 FGRX-1T03 SGCX)»1 NEXT 
1120 PCI>»i923 Pi 2.)-1363 : P<3)-1554 : P<.4) = 1572 P<5,*1314 P<.6) = 1332 
1140 P(7)=l158 PCS>=1168 P<9>«1758 P<10,»1768 
1292 REM 

1294 REM ESPLODO VIDEO ED ENTRO IN BATTAGLIA 

1296 REM 

1300 GOSUB40100 

1350 OOSUB30000 

1372 REM 

1374 REM USCITA DALLA BATTAGLIA 

1375 REM C9-0 NULLA DI DECISIVO - TORNO A BATTAGLIARE 

1376 REM C9-1 DISTRUTTO UN FUNGO 

1377 REM C9-2 DISTRUTTE TUTTE LE PRUGNE - SCHERMO SUCCESSIVO 
1370 REM C9-3 DISTRUTTI TUTTI FUNGHI - FINE PARTITA 

1379 REM 

1300 IFC9=0THEN1350 

IFC9-2THENPRINTCHR*(31 ) : PRI NT " muraraUMmi 
IFC9-2THENF0PT-1TO1500 :NEXT 
1385 PRINT"» 1 PRINTCHR*(31>; 

1390 0NC9G0T02100.1500.2000 
1492 REM 

1494 REM TUTTE PRUGNE K.O. 

1496 REM 

1500 EX-1NT C < RND<1 > *100 ) +1)+50*NS:SC-SC+EX 
1510 IFSO-PEANDC4-0THENC4-1 NF-NF+1 
1520 PRINT M Kmurai «SITUAZIONE*" 

‘1530 PRINT"» PUNTI “SC-EX 

1540 PRINT"» BONUS "EX 

1550 PRINT"» TOTALE a“SC"S" 

1560 PRINT"KOHa: CC' PER CONTINUARE)" 

1570 GOSUB44600 
1580 GETB* IFB<“""THEN1580 
1590 IF8*0"C 11 THEN 1580 

1600 NP-NW FORX-1TONW ^ SCX>«0 NEXT GOSUB43000 GOTO1000 
1992 REM 

1994 REM TUTTI FUNGHI K.O. 

1996 REM 

2000 pr i nt " murai a game over ■" 

2010 PRINT"mi COMPLIMENTI!■" 

2020 PRINT"»» PUNTI S"SC"«" 

2030 PRINT"maral <'C' PER CONTINUARE)" 

2050 GETC* IFC*-""THEN2050 


1302 

1383 


OTTIMO "N*“!" 


Le «prugne» 
per il C.64 

Vi proponiamo «Prune» un 
interessante programma rea¬ 
lizzato da Antonio Martino. 
L'originalità del gioco ed 
una grafica, rendono questo 
programma molto interes¬ 
sante. Lasciamo la parola al 
nostro lettore per descrizione 
e commenti. 


Considerazioni generali 


«Prune» è stato ideato per 
un Commodore 64, ed è 
scritto interamente in Basic. 
È un gioco a tutto schermo. 
Ogni entità mobile presente 
nel gioco può sconfinare dal 
video e rientrare dalla parte 
opposta. Non si tratta di col¬ 
pire certi bersagli sparando 
proiettili evitando la collisio¬ 
ne diretta, ma si deve cerca¬ 
re, tranne alcune eccezioni, 
proprio la collisione. 

Lo scopo del gioco è di ma¬ 
novrare un funghetto marro¬ 
ne al fine di catturare delle 
prugne che corrono sullo 
schermo. 

1 comandi a disposizione del 
giocatore sono quelli per la 
direzione del proprio fungo, 
che si muove in 8 direzioni, 
secondo il presente schema: 

U 

Y I 
G • K 
B M 

N 

A disposizione anche i tasti 
«H» e «J», indifferentemen¬ 
te. per sganciare le trappole 
(cuoricini verdi). 
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Le prugne 


Listato Le Prugne 


Il numero delle prugne che 
appare all'inizio di ogni 
schermo è scelto dal giocato¬ 
re all'inizio della partita ed è 
compreso tra 1 e 10. Tutte le 
prugne sono rosse, tranne 
una. la superprugna, che è 
rosa. Se si sceglie di giocare 
contro una sola prugna que¬ 
sta sarà, per diritto divino, 
una superprugna. La super- 
prugna è più pericolosa, più 
diffìcile da catturare, ma ov¬ 
viamente vale anche più 
punti se catturata. 

Per catturare le prugne bi¬ 
sogna semplicemente cozza¬ 
re contro di esse con il fungo 
o sperare che cadano in un 
cuoricino verde. 

Le prugne si muovono in 8 
direzioni diverse. La direzio¬ 
ne di ognuna di esse, indi- 
pendente dalle altre, è scelta 
a caso. 

La superprugna cambia 
sempre direzione, mentre le 
altre prugne mantengono 
una direzione costante per 
un certo numero di movi¬ 
menti (la costanza dimi¬ 
nuisce con l'aumentare delle 
schermate). 

Circa 1 volta su 6 ogni 
prugna può lasciare una 
trappola (due occhioni blu), 
che naturalmente il fungo 
deve evitare. 

Ogni tanto, la prugna lancia 
un «prugnino» grigio. Que¬ 
sto avviene circa 1 volta su 
16 per le prugne normali e 
circa 1 volta su 8 per la su¬ 
perprugna. In ogni caso, il 
numero dei prugnini presen¬ 
ti contemporaneamente sul¬ 
lo schermo non può essere 
superiore a 3. 

Se la prugna incontra una 
propria trappola (gli occhio¬ 
ni blu) viene distrutta (e que¬ 
sto fa comodo al fungo). 

Se la prugna, bontà sua, in¬ 
contra un'altra prugna o un 
prugnino, si blocca e blocca 
pure tutta la fase d’attacco 
della propria «squadra» 
(prugne, trappole, prugnini); 
la mossa passa al fungo che 
ha in pratica qualche movi¬ 
mento extra per scorrazzare 
indisturbato e fare terra bru¬ 
ciata intorno a sé. 


2055 

2060 

2065 

2070 

2092 

2094 

2096 

2100 

2120 

2130 

2140 

2160 

2165 

2170 

2992 

2994 

2996 

3000 

3020 

3030 

3140 

3150 

3160 

3170 

3160 

3190 

3210 

3220 

3300 

3310 

3320 

3325 

3330 

3340 

3350 

3360 

3370 

3360 

3390 

3400 

29992 

29994 

29996 

29997 

29998 

29999 

30000 
30010 
30020 
30030 
30040 
30050 
30060 
30080 
30090 
30100 
30110 
30120 
30150 
30153 


IFCBO "C"THEN2050 
OOTO3000 
P0KE53272,21 

P0KE53281,6 : PRINT "13" CLR : END 
REM 

REM FUNGO DISTRUTTO 
REM 

P^INT"****** 

PRINT"KKS 
PRINT“BB* 

PRINT"***®* 

GETB* IFB*“”"THEN2160 
IFBBO " C " THEN2160 
GOSUB43000 : 00T01110 
REM 

REM TABELLA RECORD 
REM 

FORX-1TO10 ;IFSC>=RCX)THEN3140 

NEXTX 

GOTO3300 

IFX-10GOTO3180 

FORJ*10TOX41STEP-1 

RCJ)»RCJ-1) NBCJl-NBCJ-l) P*CJ)=P«CJ-1)R*CJ)«RBCJ-1) 
NEXTJ 

N*CX)=N* : RCX)=SC : P*CX)=" " 

F0RK-1T0NU PBCXl-PBCXHCHRBC 113) : NEXTK 
KB» " : X*«STR* ( SC ) : M4-0 R* ( X > • M " 

Rf(X) bSTRBCSC) 


«SITUAZIONE»' 

PUNTI; rsc"»' 

FUNGHI; "NF 

C'C' PER CONTINUARE)” 


PRINTCHRBf 31 ) :PPINT“"»« 

PRINT"** PRUNE THE TOP TEN "PRINT"*" 

FORK-1TO10;IFRCK)«0THEN3360 

PRINT"*”, 

PRINT" S"K"* ”N$CK), 


PRINTTHBC18),R*CK); ;PRINTTABC29)"«"PBCIO"1" 

NEXTK 

print un'altra partita?”, 

OETCB;IFCB-""THEN3370 
IFCBO" S " ANDCBO " N" THEN3370 
IFCB»"S"THEN200 
GOTO2065 

REM- 

REM BATTAGLIA 

REM- 

REM 


REM FASE MOVIMENTO PRUGNE 
REM 


C9-0 F0RK-1T0NUI C7=0 
IFS(K)=1THEN30600 
IFK>1ANDNC< K)=PPTHENNC CK)=0 
NCCK)=NCCK>+1 

IFNC(K)«10RK=1THENGOSUB40200 
NU=PCK)+DXCIO+40*DVCK> 

IFNU>2023THENNU=NU+1064-2024 
I FNU< 1064THENNU=NU-<-2024-1064 
NV=PCK) 

IFPEEKC NU)=81THEN30800 
IFPEEKCNU)=124THEN30800 
POKENV, 32 POKENV-t-V, W6 

IFPEEK C NU)=90THENGOSUB41300 ;C?=1 ;M1=34 :M2=175 : GOSUB44200 

IFC9=2THEHil U.w 


30155 

30160 

30161 
30180 
30190 
30192 
30200 
30250 
30270 
30300 
30320 
30340 
30360 
30380 
30390 
30400 
30410 
30420 
30430 
30600 
30602 
30604 
30606 
30610 
30620 
30630 
30640 
30645 
30647 
30650 


I f* 1THFM 

IFPÉÈkcNU)= 83THENPGKEHU> 81 P0KENU+V,CCK):GOSUB40300 C7=l 

IFC7-1THENM1=34 M2«175 GOSUB44200 

IFC9=2THEN31180 

IFC7=1THEN30800 

PCK)=NU 

POKEPCK),81 P0KEPCK>+V,CCK) 

IFINT CRNDC1>P6)+1>1THEN30300 
POKENV,87 ;POKENV+V,W5 
IFNG-3THEN30600 

IFK=1ANDINTCRND<1)*8)♦1=1THEN30380 
IFK>1ANDINTCRNDC1)*16)+1=1THEN30380 
GOTO30600 

F0RW=1T03; IFSG < U) = 1THEN30400 
NEXTW 

GXCU)=DXCK)*C-1) GVCW)«DV(K)*<-1>; 

QCW)=0NG=NG+1 GCW)=NV SGCU)=0 
PGCU) = INT CRNDC1>*5+1)*NS+2 
POKEGCW).124 P0KEGCU)+V,W3 
NEXTK 
REM 

REM MOVIMENTO PRUGNINI 
REM 

F0RK=1T03 ; C7=8 
IFSGCK)=1THEN30740 

QCK)=QCK)+1 „„ 

IFQCIC)>PGCK)THENM1=22:M2=227 GOSUB44200 : GOSUB41000 

IFC5=1THEN31040 

IFC7*1THEN30740 

HG-GCK) 


M 
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Listato Le Prugne 

30660 POKEHG,32 :POKEHG+V,W6 
30670 G<K)-G(K.'+GX<K>+40*GY<K> 

30680 IFG<K»2023THENG<K>=GCK > + 1064-2024 
30690 IFG<KXI064THENG<K>=GCK>+2024-1064 

30700 IFPEEK(G(K> )=83THENM1=34 M2=175 GOSUB44200 GGSUB40700:GOTO30740 
30710 IFPEEK(G<K>>=90THENPOKEG(K>,124 ROKEGOO+V,U3 GOTO31040 
30720 IFPEEK(0<K> >=32THENP0KE0tK>,124 P0KEG<K)+V,U3 GOTO30740 
30730 GOTO30670 
30740 NEXTK 
30792 REM 

30794 REM MOVIMENTO FUNGO 
30796 REM 
30800 Dl-1 
30805 GETB* 

30810 IFB*="G"THENFX»-1 FY» 0 GOTO30890 
30820 IFB*«"Y" THENFX— 1 FY— 1 : GOTO30890 
30830 IFB*»"U"THENFX» 0FY=-1 GOTO30890 
30840 IFB$*"I"THENFX* 1 :FY*-1 GOTO30890 
30850 IFB*»"K"THENFX» 1 FY» 0 GOTO30890 
30860 IFB>»"M"THENFX* 1 FY» 1 :GOTO30890 
30870 IFB*»"N"THENFX» 0 FY* 1•GOTO30890 
30880 IFB*="B"THENFX»-1 FY* 1 GOTQ30890 
30890 FF-PF:FU-PF+FX+404FY 
30900 IFFU>2023THENFU»FU+1064-2024 
30910 IFFU<1064THENFU*FU+2024-1064 
30912 P0KEFF.32 P0KEFF+V,W6 

30914 I FB*0 ” H " ANDBtO"J" THEN30920 

30915 IFNT-2*NUTHEN30920 

30916 POKEFF,83 :POKEFF+V ,U2NT»NT+1 
30920 IFPEEK(FU)»83THENNT»NT-1 : GOTO30970 

30930 IFPEEK(FU;*87TH£NP0KEFU,90 POKEFU+V,MI GÙTO31040 
30940 IFPEEK<FU>»124THENP0KEFU,90 POKEFU+V,W1GOTO31040 

30950 IFPEEK< FU > »81THENPOKEFU.90 POKEFU+V,W1 : G0SUB41400 MI»34 M2»175 :GOSUB44200 

30960 IFC9-2THEN31100 

30970 PF»FU POKEPF , 90 P0KEPF+V.W1 

*0900 D1-D141 : IFDK-2THEN3080S 
31020 G0TQ31100 

31040 Ml-17 M2»37 GOSUB44200:C9*l:NF-NF-1:(FNF-0THENC9-3 

31050 FRINTCHRX31) PRINT'IODCKOQBOOG*) PECCATO "N*" ! 11 : FORT»1TO1500 : NEXT 

31100 RETURN 
40092 REM 

40004 REM ESPLODO VIDEO DI PARTENZA 



40110 F0RX*1T0NW IFS<X)*1THEN40140 

40130 POKCPOOill POKEP(X>+V,C(X> 

40140 NEXTX 

40150 POKEPF,90 P0KEPF+V,W1 F0RX-1T0NW NC<X>»0 NEXT 
40180 PP-ll-NS IFPP<3THENPP»3: RETURN 
40192 REM 

40194 REM ESTRAZIONE CASUALE MOVIMENTO PRUGNE 

40196 REM 

40200 A»INT(RNB(1><8>+l 
40210 IFA»1THENDXCK>»-1 DY<K>» 0 RETURN 
40220 IFA»2THENDX< K)*-1 DY<K>*-1 ; RETURN 
40230 IFA»3THENDXOO» 0 DY<K>—1 RETURN 
40240 IFA«4THENDX(K>* 1 DY<K)»-1 : RETURN 
40250 IFA»5THENDX< K > » 1 DY < K > = 0 RETURN 
40260 IFA*5THENBXCK)= 1 DYCK>* 1:RETURN 
40270 IFA»7THENDX(K>* 0 DY(K>* 1 RETURN 
40200 IFA-8THENDX< K)=-1 DY < K > = 1 : RETURN 
40285 RETURN 
40292 REM 

40294 REM PRUGNA CADUTA IN TRAPPOLA 
40296 REM 

40300 POKENU,32 POKENU+V,W6- NT«NT-1 
40310 IFK>1THENSC«SC+1NT C100/NP)*NS 

40320 IFK» 1THENSC-SC+1NTC100/NP>*NS*INT<<RNDCI>*3> +2> 

40330 IFSC>-PEANDC4=0THENC4=1:NF=NF+1 

40340 NP=NP-1 S < K1 = 1 NCY K )*0 GOSUB40500 

40360 IFNP=0THENC9*2 

40370 RETURN 

40492 REM 

40494 REM TESTATA CON PUNTI 
40496 REM 

40500 PRINTCHR$<31 SPRINT"SI2 

40520 PRINT"*S PRUNE SCHERMO "N3" PUNTI: "SC RETURN 
40692 REM 

40694 REM PRUGNIHO CADUTO IN TRAPPOLA 
40696 REM 

40700 POKEG(K),32 POKEG<K)+V,W6 
40710 NT-NT-1 NG=NG-1 SGCK>=1 Q(K>«0 PG(K)=0 
40720 SC*SC+1 NT ( < RND <1 > *50 ) +10 > *NS ; GOSUB40500 RETURN 
40992 REM 

40994 REM ESPLOSIONE PRUGNINO 
40996 REM 
41000 C5*0 C7*l 
41020 F0RI*1T03 

41040 FGRH=G<K>-l+<<I-2)*40>TOG<K>-l+C<I-2>*40>+2 
41060 IFH»G(K>THEN41110 


Se la prugna incappa in un 
cuoricino verde, viene di¬ 
strutta. II punteggio augna¬ 
to aumenta col dii .inuirc 
delle prugne preseni e con 
raumentarc degli schermi; 
per l’intrappolamento della 
superprugna il punteggio co¬ 
sì calcolato viene casual¬ 
mente raddoppiato, triplica¬ 
to, o quadruplicato. 

Se la prugna incappa nel 
fungo, viene catturata: pun¬ 
teggio calcolato nel modo 
già visto, ma aumentato per¬ 
ché abbiamo saputo dirigere 
il fungo nella direzione giu¬ 
sta. 

Quando tutte le prugne ven¬ 
gono catturate viene as¬ 
segnato un «bonus» che au¬ 
menta con l’aumentare degli 
schermi, e si passa allo scher¬ 
mo successivo. 


I prugnini 

I prugnini grigi sono perfidi 
in sommo grado e non pos¬ 
sono essere distrutti dal fun¬ 
go. Bisogna evitarli e sperare 
che cadano in un cuoricino 
verde, unico modo per cat¬ 
turarli. 

Al momento del lancio da 
parte della prugna, il prugni- 
no corre in direzione oppo¬ 
sta a quella della propria 
prugna per un numero di 
movimenti casuale, che au¬ 
menta con l'aumentare degli 
schermi. 

Se incontra un fungo, lo di¬ 
strugge. 

Se incontra un altro prugni- 
no. una prugna, o gli occhio¬ 
ni blu lasciati dalle prugne, il 
prugnino non si scompone 
più di tanto ed esegue un 
balzo al di là dell’ostacolo, 
proseguendo, come se niente 
fosse, nella sua marcia alla 
ricerca del nostro povero 
funghetto. 

Arrivato alla fine della sua 
corsa (quando cioè ha esau¬ 
rito il numero dei movimen¬ 
ti assegnatogli casualmente), 
il prugnino si autodistrugge, 
esplodendo intorno a sé del¬ 
la «spazzatura» grigia; que¬ 
sta spazzatura distrugge tut¬ 
to (anche i nostri cuoricini 
verdi), tranne, naturalmente. 
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entità amiche sue (prugne, 
ecc.) 

L’unico modo per debellare 
queste essere furibondo è 
sperare .he cada in un cuori¬ 
cino ve de prima di esplode¬ 
re. Il punteggio che viene as¬ 
segnato è casuale (come tutti 
i punteggi) ma comunque 
abbastanza alto e aumenta 
con raumentarc degli scher¬ 
mi. 


I funghi 

Abbiamo a disposizione 3 
funghi. Al conseguimento di 
un certo punteggio (che va¬ 
ria a seconda del numero 
delle prugne contro le quali 
stiamo giocando) ci viene as¬ 
segnato un funghetto extra. 
Alla cattura dell’ultimo fun¬ 
go a nostra disposizione, il 
gioco finisce. 

II numero massimo di cuori- 
cini verdi che possiamo 
lasciare è pari al doppio del 
numero delle prugne contro 
le quali stiamo giocando. Se 
il fungo passa su un proprio 
cuoricino verde, lo distrugge 
senza altre conseguenze. Se 
il numero di cuoricini verdi 
diminuisce (perché ci siamo 
passati sopra col fungo o 
perché hanno fatto il loro 
dovere catturando prugne e 
prugnini), allora possiamo 
depositarne altri, senza però 
poter superare, ovviamente, 
il massimo consentito. 

Onde facilitare l'azione del 
funghetto, per ogni movi¬ 
mento di prugne e prugnini, 
vengono eseguiti due movi¬ 
menti del fungo. 


Fasi della battaglia 

Ogni fase logica della batta¬ 
glia si compone. neH’ordine. 
dei seguenti movimenti. 

1 - Movimento della super- 
prugna 

2 - Movimento delle altre 
prugne 

3 - Movimento dei prugnini 

4 - Movimento del fungo (ri¬ 
petuto 2 volte") 
Naturalmente, per ogni mo¬ 
vimento vengono controlla¬ 
te tutte le possibili collisioni 
onde intraprendere le azioni 


Listato Le Prugne 

41062 2»H 

41064 IFZ>2023THEN2»2+1064-2024 
41066 IF2<1064THENZ=Z+2024-1064 

41070 IFPEEK(2)=87ORPEEKC2)=124ÙRPEEK(2;«81THEH41110 - 

41080 IFPEEK<Z)=83THENNT=NT-1 

41090 IFPEEK<Z)=90THENC5 a l 

41100 POKEZ,102 POKEZ+V, U4 

41105 IFC5»1THEN41200 

41110 NEXTH : NEXTI 

41130 P0KEG(K),32 : POKEGOO+V, W6 NG=NG-1 SG(K)=1 : QOO*0 ; PG<K)“0 
41140 F0RI=1T03 

4.1X50 r oau=c.£K.' -i^zi-aa*4».y- T <ic u . ; ■■ i -x-— 

41152 2=H 

41154 IFZ>2023THENZ=Z+1064-2024 
41156 1FZ<1064THENZ a Z+2024-1064 
41160 IFPEEK(2>O102TMEN41180 
41170 POKEZ132 : PQKEZ+V. 146 
41180 NEXTH:NEXTI 
41200 RETURN 
41292 REM 

41294 REM COLLISIONE PRUGNR/FUNGO 
41296 REM 

41300 IFIO 1THENSC=SC+I NT ( 100/NP)*NS+1NT <100/NP) 

41330 I FK= 1 THENSC=SC+1 NT <100/NP ) *NS* I NT < < RND < 1 ) *4 ) *2 > +1 NT <100/NP > 

41340 NP=NP-1 S(K>*1NC<K)=8 : IFNP=0THENC9“2 

41360 IFSC>=PEANDC4*0THENC4=1 NF*NF+1 

41370 GOSUB40500 RETURN 

41392 REM 

41394 REM COLLISIONE FUNGO/PRUGNA 
41396 REM 

41400 F0RT-1T0NW IFS<T;*1THEN41420 
41410 IFFU*PCT)THEN41440 
41420 NEXTT 

41440 IFT>1THENSC=SC+1NT <100/NP1*NS+1NT(100/NP ? 

41450 IFT=1THENSC*SC+INT<100/NP>*NS*INT<CRNDCI>*4)+2> +1NT<100/HP) 

41460 NP-NP-1 S<T>*1 NC(T>=0 

41470 IFNP=0THENC9“2 

41480 IFSC>«PEANDC4*0THENC4=>1 NF=NF+1 

41490 GOSUB405Q0 RETURN 

41992 REM 

41994 REM ISTRUZIONI PRINCIPALI 
41996 REM 

ULÙUB43200 ■ PRINTCHkJ131) 

42010 PRINT'TJSG 3 PPUNE B" PRINT 

42030 PRINT"SCOPO DEL GIOCO E' DI MANOVRARE UN" 

42040 PRINT"FUNGO PER COLPIRE DELLE PRUGNE." 

42050 PRINT"«TRA ESSE C'E' UNA SUPERPRUGNA, PIU'" 

42060 PRINT"CATTIVA MA DI MAGGIOR VALORE." 

42070 PRINT"«DEVI EVITARE I 'PRUGNINI' SPARATI DALLE" 

42080 PRINT"PRUGNE. CON I TASTI 'H' 0 'J' PUOI" 

42090 PRINT"LASCIARE DELLE TRAPPOLE, E DEVI EVITARE" 

42100 PRINT"DI CADERE IN QUELLE LASCIATE DALLE " 

42110 PRINT"PRUGNE. FUNGO EXTRA A "PE" PUNTI." 

42120 PRINT"«PUOI MUOVERTI IN 8 DIREZIONI," 

42130 PRINT"SECONDO IL SEGUENTE SCHEMA " 


42140 PRINT 

42150 PRINT" U" 

42160 PRINT" JGOODB V I" 

42170 PRINT" OH 

42180 PRINT" SLUCKB B M “ 

42190 PRINT" N" 


42210 PRINT"«CUN TASTO PER INIZIARE)", 

42220 GETC* IFC*=""THEN42220 
42450 RETURN 
42992 REM 

42994 REM COUNTDOUN 

42996 REM 

43000 PZ=1355 PU=1636 
43020 PRINTCHR$(31) 

43030 PRINT"."38SXD06 SCOUNTDGWNB" 

43040 print "«Kicciaa&ani credit " 

43060 FORM-1TONP 

43080 P0KEPZ-2+24M,81 : P0KEPZ-2+24M+V.2 
43090 NEXTM 
43100 F0RM-1T0NF 

43110 P0KEPU-2+24M,90 P0KEPU-2+24M+V,MI 
43120 NEXTM 

43130 J r ÙSZ«i34&tùEZ*2*BIP , D2«fl_ 

43135 IFPEEK(Z)=31THENB2=1 

43140 POKEZ-1,32 ; POKEZ-1+ V, U6 

43150 POKEZ,90 D OKEZ+V,W1 IFD2=1THENGOSUB44000 

43155 FORT»ITO100 NEXTT 

43160 NEXTZ PRINT".T 

43170 RETURN ‘ 

43192 REM 

43194 REM SCELTA NUMERO PRUGNE 
43196 REM 

43200 PRINTCHR4C31 ) 

43210 PRINT'TSS 3 PRONE B" : PRINT "Smammi" 

43230 INPUT"CONTRO QUANTE PRUGNE VUOI GIOCARE",F» 
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Listato Le Prugne 


43240 MU»INT<VALCF*>):IFNWaORNU>10THEN43210 

43250 NP»NU PE=3000+500*<n-NP) 

43251 PRIN’ «ClXùXOXta 

43252 PRINT"S5IC»ICCIIIMIiaiCll'' : INPUT"COME TI CHIAMI",N* 

43256 IFLEN<Nt)>l1THEN43251 

43260 RETURN 
43292 REM 

43294 REM NOTA PER COUNTDOWN 
43296 REM 
44000 S=54272 

44010 FORL-0TO24 PClKES+L,0 NEXT 

44020 POKES+1,130 

44030 POKES+5,9 

44040 POKES+15,30 

44050 POKES+24,15 

44060 POKES+4,21 

44070 FORT»ITO100 NEXT POKES+4,20 

44090 FORT»ITO100 NEXT POKES+24,0 

44091 RETURN 

44092 REM 

44094 REM NOTA PER COLLISIONE 
44096 REM 

44200 P0KE54296,15 MA=0 

44205 P0KE54277-9 P0KE54276,17 

44206 FORT=1TO300 NEXT 

44207 IFMA*1GOT044220 

44210 P0KE54273,MI P0KE54272-M2 POKE54276,0 
44215 MA-1 GOTO44205 

44220 PQKE54276,0 POKE54273-0 POKE54272,0 
44230 RETURN 
44592 REM 

44594 REM ROUTINE MUSICALE PER BONUS 

44596 REM 

44600 F0RL-1T012 

44620 PQKE54296,15 PÙKE54276,65 P0KE54277,190:P0KE54275,15:P0KE54274,15 
44640 P0KE54273,MX<L, 1 ) P0KE54272,MJS(L,2) 

44650 FORX»MXa,3)-50TOM;i(L,3)-20 P0KE54278, 136 NEXT 

44660 F0RT»1T0MXCL,3> ; NEXT 

44670 P0KE54273,0 POKE54272,0 POKE54276,0 


conscguenti (esempio: bloc¬ 
co delle fasi 2 e 3 se una 
prugna incontra un'altra 
prugna, ecc.) 

Good Luck! (W.P.) 

<-'1 RUMI 2 - 

l 


Inserire il titolo 
sul C64 

gitolo» va inserito al- 
\( I l'inizio di ogni pro¬ 


gramma o utilizzato come 
subroutinc. 

Dato il run, compare il tito¬ 
lo del programma, già op¬ 
portunamente inserito alla 


riga 13 come A$. 

Su sfondo nero, il titolo è 
scritto in blu con tre comici: 
bianca, rossa e verde. A que¬ 
sto punto non ci resta che 
premere un tasto e partirà il 
nostro programma normal¬ 
mente. 

Lista delie variabili 
listato «Inserire titolo» 

A$ - titolo da visualizzare e. 
alla fine, argomento del get. 

T - posizione di partenza 
della cornice. 

K - contatore della lunghez¬ 
za della cornice. 

2 £ 2 £ 2 £ 2 £ 2 £ 2 £ 2 £ 2 £ 2 £ 2 £ 2 £ 2 £ 

& 

*■ 

* 

* 

& 

& 

# 

& 

4 

£ 

☆☆☆☆☆☆☆☆☆☆☆☆ 


Prenota 
Personal 
Computer 
in edicola 


Listato Inserire il titolo 


4 

5 

6 


y 
10 
1 1 
12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


I T 0 L 0 


PER CBN 64 

-INTONICI PONT OR IERI 
VI hi PORTA CALCINAR A, 41 
27100 PAVIA - TEL.0382/37173 


POKE53280,0 POKE53281,0:PRINT"!□";CHRfC142 >, 

m =" mMmm *******'' ■ rem #==> qui va inserito il t i t olo del programma . 

PR I NT ” MJPMtìPMPJ"T = 16-LEN ( A $ >/2 

PRINTTAB< T+1>"IL—"; :F0RK=1TOLEN<A$>:PRINT"; :NEXT:PRINT"—" 

PRINTTAB<T>" 14r~",■F0RK=1TOLEN<A$)•PRINT"•NEXT■PRINT" —. Ei " 

PR INTTAB( T> " Et laiI ST" ; : FGRK-1 TOLEN< A$> : PR INT "; : NEXT : PR I NT "lai I li " 

PRINTTAB*:.T> " Idi 3 3" A*"8 lati Bfl 11 

PRI NTTAB< T > "Il WIBL" j : F0RK= 1 TOLEN< fi* > : PR I NT "; : NEXT • PR I NT " Ja| I fii " 

PR I NTTAB( T > " lai ; : F0RK= 1 TOLEN< A$ > : PR I NT "- M ; : NEXT : PR I NT M H " 

PRINTTAB< T+1 > "Et—" ; : F0RK= 1 TOLEN< AS> : PRI NT"; : NEXT : PRINT" — ‘al" 

GETA$ : IFAS=""THEN22 

REM #==> HA QUI PIJO-' COMINCIARE IL TUO PROGRAMMA <>=* 


READY. 
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Spiegazione delle istruzioni 
listato «Inserire titolo» 

12. Pulisce lo schermo e imposta lo sfondo nero. I! chr$ 
(142) imposta il set di caratteri standard (maiuscolo-grafi¬ 
co). 

13. Al posto degli asterischi va inserito il titolo, che può 
avere una lunghezza qualsiasi (purché non sia più lungo 
della riga video) 

14. Posiziona il cursore al centro del video, posizione che 
dipende dalla lunghezza del titolo. 

15. Forma la parte superiore della cornice esterna di colo¬ 
re verde. 

16. Forma la parte superiore della cornice centrale di 
colore bianco. 

Attenzione! Prima della ‘E’ che imposta il bianco 
(CTRL+2), si ha il carattere che si ottiene con COMMO- 
DORE+M. cosi anche dopo la freccia in su (CTRL+6) si 
ha il simbolo ottenuto con CMDR+G. 

17. Tra virgolette abbiamo: CTRLt-6, CMDRfM. 
CTRL+2, SHIFT+B. CMF.DR+3, SH1FT+0; Poi: 
SHIFT+P. CTRL+2, SHIFT+B. CTRL+6, CMDR+G. 

18. CMDR+M, CTRL+2, SHIFT+B. CMDR+3, 
CMDR+G, CMDR+7; Poi: CMDR+3, CMDR+M, 
CTRL+2. SHIFT+B. CTRL+6, CMDR+G. 

19. CTRL+6, CMDR+M, CTRL+2. SHIFT+B, 
CMDR+3, SHIFT+L; Poi: SHIFT+chiocciolina. 
CTRL+2. SHIFT+B. CTRL+6, CMDR+G. 

20. CMDR+M, CTRL+2, ecc..., CTRL+6. CMDR+G. 

21. Chiude la cornice più esterna. 

22. Attende che venga premuto un tasto. 

23. Da qui puoi inserire il tuo programma, che avrà ora 
un aspetto molto più ‘professional’, non trovi? 
Naturalmente, chi vorrà avere il programma già registra¬ 
to su cassetta, non dovrà fare altro che telefonarmi o 
scrivermi. 


Incorniciare 

10 schermo 

Presentiamo nel listato I 
una piccola utility per VIC 
20, adattabile con poche 
modifiche al C 64, per stam¬ 
pare una cornice attorno al¬ 
lo schermo. È stata realizza¬ 
ta dal coordinatore del club 
di Personal Computer di 
Bra: Massimo Fumerò. 

Nel listato 2, Massimo mo¬ 
stra invece come stampare 
una frase in una certa posi¬ 
zione dello schermo, indivi¬ 
duata da X e Y: 

11 programma fa uso della 
funzione LEFT$ (stringa. 
N), che permette di stampa¬ 
re i primi N caratteri della 
stringa partendo da sinistra. 

In questo caso, la stringa è 
composta da 22 caratteri 
corrispondenti a «cursor 
down». 


LEFTS («22 cusor down, 
13) stampa i primi 13 carat¬ 
teri della stringa partendo da 
sinistra, quindi 13 «cursor 
down»; il cursore verrà 
quindi posizionato sulla 
I3esima riga. 

Questo piccolo trucchetto vi 
permette di aggirare il pro¬ 
blema della mancanza di 
un’istruzione VTAB. 

Se il trucco dovesse essere 
usato più volte aU’interno di 
un programma, consiglio di 
definire una stringa = «22 
cursor down» all'inizio, di 
usare una variabile per la ta¬ 
bulazione verticale e una per 
quella orizzontale, e di ri¬ 
chiamare il trucchetto come 
una subroutine. 

# & 

Auguri J 

# & 


Incorniciare lo schermo 


Listato 1 


IO GOSUB 500 
250 END 

500 REM *** CORNICE SCHERMO *** 

505 POKE 36879,13 : PRINT " ( CTRL-2 ) " >. 


510 I <= 7680 : J = 484 
515 POR K I TO I + 21 
520 FOR K = I ♦ 22 TO I 
525 POKE K.5 : POKE K ♦ 
530 POR K » 1 ♦ J TO I 
535 PRINT "(HOME)" 

540 RETURN 


: S a 1 : PRINT "( SHI I T-CLR V 
: POKE K,S : NEXT 
♦ 22*21 STEP 22 
21,S : NEAT 

► J + 21 : POKE K,S : NEAT 


Listato 2 


600 REM *** CURSORE *** 

605 A = 13 : Y 3 

| 610 PRINT "(HOME)" LEPTS C^2 cursor dowrV’ 


. Y) TAB (X) 


620 PRINT "PC - CLUB' 


| Linea 505: 

Commenti al listato 1 

pone lo schermo nero, il bordo verde e 

I Linea 510: 

il cursore bianco 

variabili per adattare la subroutine al C 

Linea 515: 

64 

I = inizio locazioni di schermo 

J = numero di caratteri dall’angolo alto 
sinistro a quello basso sinistro dello 
schermo 

S * codice del carattere con cui verrà 
stampata la cornice, in questo caso il 
pallino (codice dee. 81) 
stampa il margine superiore della cor- 

nice 

Linee 520/525: stampa i bordi laterali della cornice 

Linea 530: 

stampa il bordo inferiore della cornice 

I Linea 605: 

Commenti al listato 2 

variabili di tabulazione. In questo caso 

Linea 610: 

la scritta PC - CLUB verrà stampata 
sulla I3esima colonna (X) e sulla 3a 
riga (Y) 

porta il cursore all’angolo superiore de- 


stro e scende alla 3a riga 
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Un archivio 
«fonetico» 

In molte applicazioni dei 
computer c necessario archi¬ 
viare liste di nomi. Ad esem¬ 
pio clienti e fornitori per il 
commercio, passeggeri per le 
agenzie di viaggio, clienti per 
i professionisti e pazienti per 
gli ospedali. Questo è un 
programma per un diretto¬ 
rio telefonico ed illustra al¬ 
cune delle tecniche utilizza¬ 
bili in archivi di ricerca ed 
amministrativi. 

11 programma è scritto per il 
Commodore Pct a 40 colon¬ 
ne. ma non utilizza caratte¬ 
ristiche Basic di macchine 
specifiche se non nel format- 
tatore di schermo, descritto 
nel lesto. Il programma può 
funzionare in 8K ma con un 
direttorio limitato. 

Uno degli inconvenienti in¬ 
contrati nella ricerca in un 
archivio di nomi è quello di 
non conoscere con precisio¬ 
ne il nome cercato. Un 
esempio, il nome «Clarke», 
può essere capito come 
«Clark». «Clerk» o «Cler- 
kc». È chiaro che quando si 
cerca in un indice è utile co¬ 
noscere tutti i nomi che sono 
foneticamente simili. 

11 codice Soundex è stato 
progettato per questo scopo: 
è compito del programma 
codificare un nome nel suo 
Soundex equivalente, nel se¬ 
guente modo: 

1 - la prima lettera del no¬ 
me è anche la prima del co¬ 
dice 

2 - le lettere seguenti sono 
rimpiazzate in questo modo: 

B. F.P e V - rimpiazzate con 
P 

C. G.J.K.Q.S.X e Z - rim¬ 
piazzate con S 

M e N - rimpiazzate con M 

L e R - codificate senza mo¬ 
difiche 

A.E.I.O.U.W.H e Y - non 
codificate 

tutte le consonanti con pro¬ 
nuncia similare sono rag¬ 
gruppate 

3 - una sequenza ininterotta 
di lettere con lo stesso valore 
di codifica viene rimpiazzata 



Figura I 


WATT 

GURNEY 

YV1THE 

GREVI 

YVAITE 

GOREN 

YVHITE 

GREEN 

WY.4TT 


TUTTI 

TUTTI 

CODIFICATI 

CODITI- 

CATI 


CON WTAA CON 


GRMA 


con un singolo codice, seb¬ 
bene non sia inclusa la pri¬ 
ma lettera del nome. Può es¬ 
sere inclusa cambiando la li¬ 
nea di lettura 2000 
SD$=LEFT$(NMS,1):L$= 
SD$:N=0 

4 - il codice è forzatamente 
lungo quattro caratteri, e 
viene troncato aggiungendo 
alla destra la lettera A. 

La procedura per codificare 
è nelle linee da 2000 a 2160. 
Neifesempio di figura 1 i 
nomi foneticamente simili 
sono codificati in modo 
identico, però le regole della 
pronuncia inglese insegnano 
che questa non è la regola. 
«Belvoir» viene codificato 
BLPR, però può essere 
pronunciato-«Bearcr», che 
ha il codice BPRA. Cosi 
«Bough» è codificato BSAA 


ma viene anche pronunciato 
«BolT» o «Bo\v», che hanno 
il codice BPAA e BAAA. 

Il codice Soundex è valido 
per cercare nomi in un pic¬ 
colo direttorio telefonico 
personale, ma può solo for¬ 
mare una parte di un algorit¬ 
mo di ricerca per un archi¬ 
vio più vasto. Generalmente 
le liste sono cercate per stadi 
successivi, con criteri di ri¬ 
cerca molto restrittivi e adat¬ 
ti ad ogni stadio. Cosi, il pri¬ 
mo stadio può essere esami¬ 
nato per un esatto riscontro 
sul cognome, iniziali, sesso e 
data di nascita. Se il riscon¬ 
tro richiesto è errato, il se¬ 
condo stadio cerca sul Soun¬ 
dex sesso e anno di nascita. 
Il metodo di ricerca dipende 
dalfimportanza assegnata 
alla ricerca esatta e alla ri¬ 
chiesta di riscontri. 

Varie strutture di dati posso¬ 


no essere usate per creare un 
indice. La più semplice è 
una lista seriale o file. L’ulti¬ 
mo record della lista può es¬ 
sere seguito da nuove ag¬ 
giunte, per cui la lista viene 
dichiarata grande a sufficien¬ 
za per ulteriori espansioni. 
Le cancellazioni richiedono 
l’indice per cercare l’ingresso 
da togliere, e. queste, collo¬ 
cano nel record un valore 
speciale come Cancellato o 
«», la stringa nulla. Se vi so¬ 
no molte cancellazioni, bi¬ 
sogna aggiungere una proce¬ 
dura per recuperare i record 
cancellati. L'indice deve esa¬ 
minare ogni record per tutti 
i riscontri richiesti. 

Una struttura molto pratica 
è la lista anulare. È usata nei 
programmi cd è largamente 
impiegata nelle strutture di 
dati comprensivi e nei siste¬ 
mi di base dati commerciali. 
Ad ogni record è aggiunto 
un puntatore che indica la 
posizione del prossimo re¬ 
cord in sequenza, il puntato¬ 
re corrisponde al valore del 
numero del record appro¬ 
priato. Dato che in Basic 
non è possibile mischiare va¬ 
riabili stringa e numeriche, 
bisogna inserire i puntatori 
in una lista separata. PT%, 
che è parallela alla linea dei 
dati principali. TPS. 
All'inizio tutti gli elementi 
della lista sono assegnati a 
una lista libera. Il puntatore 
del primo elemento della li¬ 
sta è contenuto in FF e ogni 
elemento PT% è messo a 
puntare il seguente, in que¬ 
sto modo: 

PT%(1)=2 

PI%{2)=3 

L 'ultimo elemento PT% 
contiene zero, indicando il 
fine lista. Un altro puntato¬ 
re, FU, dà il numero del pri¬ 
mo record usato. La struttu- 
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Le variabili del listato «Archivio fonetico» 

.NN - numero di record assegnati all’indice 

TPS(NN) - indice telefonico 

PT%(NN) anelli record 

RCS - ingresso indice 

NMS - nome 

SX$ - sesso 

ADS - indirizzo 

TLS - numero telefonico 

SDS - codice Soundex 

NP - puntatore per il successivo record 

IP - puntatore del record precedente 

C’P - puntatore del record corrente 

FU - puntatore del primo record dell'indice 

FF - puntatore del primo record inutilizzato 

11*$ - chiave per azionare Input 

LF$ - nome del file da caricare 

SF$ - nome del file da salvare 

UD - bandiera di aggiornamento, fissata su 1 se il file è 

creato o emendato 

ER - bandiera di errore 

\D - numero di record da visualizzare 

SF.$ - carattere separatore. “ ” 

CDS - stringa movimento cursore 

A$, N, I, N$, L$, C$, J, K, L - variabili di uso comune. 









































Archivio fonetico - Procedure 

- Caratteri di movimento cursore, particolari del Pet, sono visualizzati con codici inter¬ 
ni a parentesi quadre. 1 codici usati sono: CD, cursore giù, HOM. cursore a casa e CLS, 
pulire schermo. 

- Procedura Master, linee 200-310. Chiama l’inizio e le procedure di istruzione. Accetta 
l'ingresso dei tasti d’azione c chiama la procedura corrispondente. 

- Inizio, linee 400-410. Fissa le costanti e pone UD=0, mostrando che all’inizio l’indice 
non richiede salvataggi. Open 1,0 in linea 410 apre la tastiera e un ingresso periferico. 1 
dati possono essere accettati dalla tastiera con Input 1. Premendo il tasto Return si ha il 
vantaggio che Ready sul video è ignorato. Con Input 1 si ha lo svantaggio di non poter 
usare il promemoria e il Return che completa l’ingresso non produce una nuova linea 
sullo schermo. Questi svantaggi vengono facilmente eliminati e sono un piccolo prezzo 
da pagare in un programma che non visualizza Ready. 

- Istruzioni, linee 600-665. Direttamente visualizzate sullo schermo. 

- Procedura di carico, linee 800-890. Inizialmente NN è zero; se non lo è, un’indice è 
già stato creato/caricato. Il file nominato è aperto e letto e l’utente se lo desidera può 
estenderlo. 11 record aggiunto viene inanellato nei record già esistenti dalle linee 860-870. 

- Procedura di controllo aggiunte, linee 1000-1170. La linea 1000 assicura che non 
possono essere aggiunti record prima che il file sia stato caricato o creato. 1 dettagli del 
record da aggiungere sono nominati nelle linee 1010-1100, che controllano gli errori. 
Non si possono immettere stringhe con le virgole, in quanto nel Basic una virgola è un 
separatore. La subroutine 2000. richiamata dalla linea 1110, crea il codice Soundex. La 
linea 1120 crea il record concatenando le parti separate. La subroutine 2200, richiamata 
dalla linea 1130. aggiunge all'indice un nuovo record. Le linee 1440-1170 raggirano la 
condizione di File Completo trovata dalla subroutine 2200. L’utente è invitato a salvare 
il file e a riavviare il programma ed espandere il file quando viene caricato. 

- Procedura di ricerca, linee 1200-1290. Le linee 1200-1210 accettano la chiave di 
ricerca. Le linee 1220-1240 scorrono l'indice un record alla volta. La subroutine 2400 
restituisce CP con il puntatore del successivo record sequenziale. La linea 1250 se non ci 
sono riscontri, visualizza un messaggio che riferisce il risultato negativo della ricerca. La 
linea 1270 stampa il record riscontrato e controlla che lo schermo non sia completo. Se 
lo è. le linee 1280-1290 permettono all’utente di esaminare i riscontri prima di visualiz¬ 
zare altri riscontri. Specifico del Pet è il Wait 59410.4,4 che aspetta sia premuta la barra 
spaziatrice. Se questa istruzione non è battuta correttamente il Pet sospende l’istruzione 
Wait bloccandone il ciclo. 

Alcuni codici alternativi sono: 

1290 GF.T A$:IF A$ <> « » THEN 1290 
1300 PRINT «|CLS)»:GOTO 1240 

- Salvataggio indice, linee 1400-1430. L’indice viene salvato su un file, su cassetta di 
registrazione. Sul registratore, la virgola separatrice tra le variabili viene forzata inclu¬ 
dendola nelle istruzioni PRINT 2. 

- Nuovo indice, linee 1600-1650. Sono richiesti i dettagli del nuovo file e viene fissata la 
lista corrispondente. Le linee 1640-1650 inanellano tutti gli elementi della lista nella lista 

inutilizzata. 

- Procedura di fine, linee 1800-1850. Il file tastiera viene chiuso. Se l’indice è stato 
cambiato all'utente viene data l’opportunità di salvarlo. 

- Soundex, lince 2000-2160. Vedere la descrizione nel testo. 

- Ingresso Nuove Aggiunte, linee 2200-2350. Linea 2200, se FF=0 non vi sono record 
inutilizzati e il nuovo record non può essere aggiunto. La linea 2210 posiziona il record 
in TP$(FF) e fissa un ciclo per trovare la locazione corretta in cui aggiungere il record; 
le linee 2220-2240 danno corpo al ciclo. Il ciclo quando si è trovato il punto corretto o 
quando tutti i record utilizzati sono stati esaminati e NP=0, li lascia entrambi. La linea 
2250 aggiunge all'inizio dell’indice. Le linee 2260-2270 aggiungono all’indice il nuovo 
record. La linea 2280 aggiunge a un’indice vuoto. Le linee 2290-2300 aggiungono alla 
fine dell’indice. 

- Prossimo record, linea 2400. Ripristina IP, CP e NP. 

- Visualizzazione dei record, linee 2600-2690. La parte principale della procedura, linee 
2610-2670, suddivide RC$ in nome indirizzo e numero telefonico. L’attuale visualizza¬ 
zione è alla linea 2680. La linea 2690 incrementa il contatore dei record visualizzati. 

Cancellazione, linee 2800-2910. La chiave del record da cancellare è immessa nella 
linea 280(’ e l’indice analizzato per la ricerca nelle linee 2810-2840. Le linee 2850-2880 
danno l’opportunità all’utente di rinunciare alla cancellazione. Le linee 2890-2910 can¬ 
cellano il record come descritto nel testo. 

Chiave d'ingresso, linee 3000-3090. Il nome e il sesso sono accettati dalle linee 
3020-3070, mentre il codice Soundex è creato dalla linea 3080. 


ra è mostrata in figura 2. 

Ogni nuovo record è as¬ 
segnato alla posizione data 
da FF, il primo record della 
lista dei record inutilizzati: è 
il numero 7 nelfesempìo. Il 
puntatore della lista è quindi 
portato al valore del punta¬ 
tore corrispondente a questo 
record, nell’esempio 18. 

Il nuovo record è incastrato 
nella lista dei record usati di 
modo che i record sono 
mantenuti in sequenza. 

Quindi il puntatore del re¬ 
cord della chiave GHK è fis¬ 
sato sul numero del nuovo 
record 7 e il puntatore di 
questo record è messo a 
puntare il record 4. prece¬ 
dentemente puntato da 
GHK. 

Cancellare il record è più 
semplice. Il puntatore della 
lista libera FF è fissato sul 
numero del record da can¬ 
cellare, mentre il puntatore 
di questo record è fissato sul 
valore precedente di FF, po¬ 
nendo cosi il record cancel¬ 
lato alla testa della lista libe¬ 
ra. Il record che prima pun¬ 
tava il record cancellato è 
puntato sul record preceden¬ 
temente puntato dal record 
cancellato. Entrambe queste 
procedure richiedono codifi- 
che addizionali per trattare 
con aggiunte e cancellazioni 
da e pei l'inizio e la fine del¬ 
la lista. La ricerca è eseguita 
sequenzialmente seguendo i 
puntatori. Questo assicura 
che le chiavi siano analizzate 
in una sequenza ascendente 
e la ricerca è completata 
quando la chiave del record 
oltrepassa la chiave cercata. 

La struttura a lista anulare è 
idonea ai record contenuti in 
RAM ma richiede l'aggiunta 
di uno o più indici quando si 
utilizza con il backing-store. 

Può formare la base di un 
tale sistema, ed ha la virtù di 
permettere aggiunte e can¬ 
cellazioni senza ristrutturare 
il file. 

Il programma per eseguire 
queste procedure è stato pre¬ 
parato in maniera modula¬ 
re, semplificando cosi la co¬ 
difica. la prova e le successi- 
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ve espansioni. L’arte della 
codifica sta nel risolvere il 
problema e stabilirne la solu¬ 
zione. Il primo passo è quel¬ 
lo di definire il problema: la 
codifica può essere lasciata 
più tardi nella programma¬ 
zione del ciclo. Se il pro¬ 
gramma è stato ben pianifi¬ 
cato fin dal principio, codifi¬ 
care diventa, per la maggior 
parte, un processo meccani¬ 
co. 11 passo successivo è 
quello di ridurre la soluzione 


a un fissaggio di moduli. A 
questo punto potete scegliere 
di usare uno pseudo linguag¬ 
gio strutturato o una 
flowchart. La principale ri¬ 
chiesta è che i moduli devo¬ 
no essere ben definiti, fun¬ 
zionali e sufficientemente 
piccoli,.per essere chiari. È 
possibile codificare ogni uno 
in un ragionevole numero di 
lince. 

Nel Basic, ogni modello si 
aspetta che il modulo con¬ 


trollore possa essere codifi¬ 
cato in una subroutine. Sic¬ 
come è chiaro lo scopo dei 
moduli, e non possono esse¬ 
re troppo lunghi, non pre¬ 
sentano difficoltà di codifica. 
Inoltre possono essere codifi¬ 
cati in TOP-DOWN. Ogni 
subroutine è inizialmente 
codificata con una matrice, 
che può essere un semplice 
Return una linea per stam¬ 
pare il nome seguita da Re¬ 
turn. Poi ogni subroutine è 


Suoni similari 


Listato Archivio fonetico 


200 GOSUB 400 
210 GOSUB 600 

220 SET IPS:IF IPS="I" THKN 210 
230 IP IPS= "L" THEN GOSUB 800:G0T0 300 
240 IP IPS="A" THEN GOSUB 1000:GOTO 300 
250 IP IPS="F" THEN GOSUB 1200:GOTO 300 
260 IP IPS="S" THEN GOSUB 1400:I0T0 300 
270 IP IPS="N" THEN GOSUB 1600:GOTO 300 
280 IP IPS="D" THEN GOSUB 2800:GOTO 300 
290 IP IPI="E" THEN GOSUB 1800:END 
295 GOTO 220 

300 PRINT " IMMETTERE IL CODICE PER LA SUCCES..ilVA 
310 PRINT "OPPURE *1' PER LE ISTRUZIONI":GOTO 220 
400 SES="«»:CDS=" ":UD=0 

410 OPEN 1,0:RETURN 

600 PRINT " LE FUNZIONI DISPONIBILI SONO:-" 

605 PRINT " L - CARICARE UN'INDICE TPTLEPONICO" 

610 PRINT "S - SALVARE UN'INDICE TELEFONICO" 

615 PRINT "N - INSERIRE UN NUOVO INDICE TELEFONICO" 
620 PRINT "A - AGGIUNGERE UN'INGRESSO ALL'INDICE" 
625 PRINT "F - CERCARE L'INDICE" 

630 PRINT "D - CANCELLARE UN'ENTRATA DELL'INDICE" 
635 PRINT "E - FINE DEL PROGRAMMA" 


codificata rimpiazzando la 
matrice, così il programma è 
gradualmente costruito. La 
matrice è necessaria dove 
può fissare valori in variabili 
per simulare la loro funzio¬ 
ne. le procedure sono ag¬ 
giunte e provate una per vol¬ 
ta. Cosi il processo continua 
e le procedure più comuni 
possono essere usate fre¬ 
quentemente, cosicché pos¬ 
siate diventare più fiduciosi 
sulla loro correttezza. 


FUNZIONE," 
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Listato Archivio fonetico 


640 PRINT "I - TORNA A QUESTO VIDEO" 

645 PRINT " ORA, 0 IN RISPOSTA AL PROMEMORIA:-" 

650 PRINT " IMMETTERE IL CODICE PER LA SUCCESSIVA FUNZIONE," 

655 PRINT "OPPURE 'I' PER LE ISTRUZIONI" 

660 PRINT " IMMETTERE UNA DELLE LETTERE CITATE" 

665 RETURN 

800 IF NN<>0 THEN PRINT " UN INDICE E' GIÀ' STATO CARICATO": RETURN 

805 PRINT " IMMETTERE IL NOME FILE" : INFITTII, LF3 : PRINT 

810 OPEN 2,1,0:INFUT$2,FU,FF,NH 

820 PRINT " CI SONO";NN; "RECORD NEL FILE" 

830 PRINT " QUANTI IN PIU'? INPUT^l,AS:N=VAL(AS):PRINT 

840 DIM TP$(NN+N),PT$(NN+N) 

850 IF N=0 THEN 880 

860 FOR I=NN+1 TO NN+N-l:PTyo(I)=I+l:NSXT 
870 PT^(NN+N)=FF:FF=NN+1 

880 FOR 1=1 TO NN:INPUT$2,PT^(I),TP$(I):NSXT 
890 NN=NN+N:CLOSE 2:RETURN 

1000 IF NN=0 THEN PRINT " USARE 'N' 0 'L' PER CREARE 0 CARICAR!-,' 

UN FILE":RETURN 

1010 PRINT " INSERIRE NOME, COGNOME. NON USARE":PRINT "VIRGOLE":PRINT 
1020 INPUT^l, NMS :PRINT 

1030 PRINT " INSERIRE SESSO( 'M* 0 'F' 0 '0' PER":PRINT "COMMERCIO 
ECC. )"; 

1040 INPUTftl,SXS:PRINT 

1050 IF SX$="M" OR SXS="F" OR SX3="0" THEN 1070 

1060 PRINT "'M' 0 'F' 0 '0' PER FAVORE. RIPETERE":GOTO 1040 

1070 PRINT " INSERIRE INDIRIZZO. NON USARE VIRGOLE" 

1080 PRINT:INPUT^l,ADS:PRINT 

1090 PRINT " INSERIRE NUMERO TELEFONICO" 

1100 PRINT:INPUT^1,TLS:PRINT 
1110 GOSUB 2000 

1120 RC$=SDS+NMS+SES+ADS+SES+TLS 
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Listato Archivio fonetico 


1130 GOSUB 2200 

1140 IP ER=0 THEN Ulti:RETURN 

1150 PRINT " FILE PIERO. INSERIRE •S' PER SALVARLO, QUINDI" 
1155 PRINT » 'E' PER FINIRE. RIAVVIARE IL PROGRAMMA. USARE" 
1160 PRINT " 'L 1 PER CARICARE IL FILE ED ESPANDERLO" 

1165 PRINT " QUANDO AVETE CHIESTO DI VOLERE PIU"' 

1170 PRINT " RECORD":RETURN 
1200 GOSUB 3000:ND=0 
1210 IF ER<>0 THEN RETURN 
1220 G0SU13 2400 

1230 IF SDS=LEFTS(TPS(CP),5) THEN 1270 
1240 IF NPOO THEN 1220 

1250 IF ND=0 THEN PRINT " NESSUN RISCONTRO": RETURN 
1260 PRINT " TUTTI I RISCONTRI TROVATI": RETURN 

1270 G0SU3 2600:IF ND-6*INT(ND/6K>0 THEN 1240 
1280 PRINT " BATTERE SPAZIO PER CONTINUARE" 

1290 WAIT 59410,4,4:PRINT " ":GOTO 1240 

1400 PRINT " INSERIRE IL NOME FILE":INFUMI,SFS:PRINT 

1410 OPEN 2,1,1:PRINT#2,FU;",";FF;",";NN 

1420 FOR 1=1 TO NN:PRINT^2,PT^(I);",";TPS(I):NEXT 

1430 UD=0:CL0SE 2:RETURN 

1600 IF NNO 0 THEN PRINT " AVETE GIÀ' UT: FILE" : RETURN 

1604 PRINT " QUANTI RECORDS RICHIEDETE? 

1605 INPUT4l,NS:NN=VAL(NS):PRINT 

1610 IF NN<20 OR NN>250 THEN PRINT " 20-250 E' IL LIMITE. 
REINSERIRE"; :G0T0 1605 

1620 DIM TPS(NN),PT^(NN) 

1630 FU=0:FF=1 

1640 FOR 1=1 TO NN-1:PT^(I)=I+1:NEXT 
1650 PT$(NN)=0:RETURN 
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1800 IP UDOl THEN 1850 

1810 PRINT " AVETE CAMBIATO IL PILE. VOLETE" 

1820 PRINT "SALVARLO?" 

1830 GET AS:IP AS="N" THEN 1850 

1840 IP ÀSO"Y" THEN 1830 

1845 GOSUB 1400 

1850 CLOSE 1:RETURN 

2000 SDS=LEPS(NMS r 1 ) :L$=" " :N=0 

2010 POR 1=2 TO LEN(NMS):AS=MID$(NMS,1,1) 

2020 IP A$="B" OR A$="F" OR A$="P" OR A$="V" THEN C$="P":GOTO 2090 
2030 IP AS="C" OR AS="G" OR AS="J" OR A!="K" THEN CS="S":GOTO 2090 
2035 IP A3>= "T" OR AS="I>" THEN CS="T":GOTO 2090 

2040 IP A2>="Q" OR AS="S" OR AS="X" OR AS="Z" THEN C$="S":GOTO 2090 

2050 IP A3>= "M" OR A3>= "N" THEN C1="M" :GOTO 2090 

2060 IP A$="L" OR A$="R" THEN CS=AÌ:GOTO 2090 

2070 IP A3>=" » THEN 1=99: GOTO 2110 

2080 LS=AS:G0T0 2110 

2090 IP CS=LS THEN 2110 

2100 SDS=SDS+CS:N=N+1:LS=CS 

2110 NEXT 

2120 IP N=3 THEN 2150 

2130 IP N<3 THEN SDS=SDS+LEPTS("AAA",3-N):G0T0 2150 
2140 SDS=LEPTS(SBS,4) 

2150 SDS=SDX+SXS 
2160 RETURN 

2200 ER=0:IP PP=0 THEN R=l:RETURN 
2210 NP=PU:IP=0:CP=0:TP$(FF)=RCS 
2220 IP NP=0 THEN 2280 
2230 G-OSUiJ 2400: AS=LEPTS(TPS(CP), 5 ) 

2240 IP SDS>AS THEN 2220 

2250 IP IP=0 THEN FU=PF:GOTO 2270 
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2260 PT c /c(IP) = PP 

2270 N=PT‘/.(FF):PTMFF)=CP:FF=N:GOTO 2350 
2280 IP CP=0 THEN FU=FF:G0T0 2300 
2290 PT/-(CP)=PP 

2300 N=?Tfc(FF):PT#(FF)=NP:FF=N:GOTO 2350 
2350 RETURN 

2400 IP=CP:CP=NP:NP=PT£(CP):RETURN 
2600 RC2=TPS( CP ) : L=LEN( RC3» ) : J=0:K=0 
2610 POR 1=6 TO L 

2620 IP MIDS(RC3,I,l)<>"•" THEN 2650 
2630 IP J=0 THEN J=I:GOTO 2650 
2640 K=I 
2650 NSXT 

2660 NMS=MIDS ( RCS,6, J-6 ) : ADS=MIDS ( RCS, J+l, K-J-l ) 

2670 TL2=RIGHT2(RC2,L-K) 

2680 PRINT " " ;NM2;TA 3(20) ;TLS:PRINT ADS 
2690 NB=ND+1 : RETURN 
2800 GOSUB 3000:IP ER<>0 THEN RETURN 
2810 GOSUB 2400 

2820 IP SD3=LEPT2(TPS(CP),5) THEN 2850 
2830 IP NPOO AND SDS>=LEFT3i(TPS( CP), 5 ) THEN 2810 
2840 PRINT " PIU' NESSUN RISCONTRO": RETURN 
2850 PRINT " ":JOSUB 2600 

2860 PRINT " CANCELLATE QUESTO'RECORD? ('3' O'N')" 

2870 GET A3: IP A2="N" THEN 2830 
2880 IP A3<>"S" THEN 2870 
2890 IP IP=0 THEN FU=PT^(CP):GOTO 2910 
2900 PT^(IP)=PTfo(CP) 

2910 PT%(CP)=FF:FF=CP:TP3(CP)=" UD=1:RETURN 

3000 BR=0:IP NN=0 THEN PRINT " USATE 'N' 0 'L' PER CREARE/CARICARE 
UN PILE":ER-1:RETURN 
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3010 IP FU=0 THEN PRINT " NESSUN RECORD SUL PILE":ER=1:RETURN 

3020 PRINT " INSERITE NORIE E COGNOME. NON USATE”:PRINT "VIROLE": 
PRINT 

3030 INPUT^l,NMS:PRINT 

3040 PRINT " INSERIRE SESSO ('M' 0 »P' 0 '0' PER” : PRINT “COMMERCIO 
ECC.)"• 

3050 INPUT^ljSXSSPRINT 

3060 IP SX2="M" OR SXS="F" OR SXS="0" THEN 3080 
3070 PRINT " ’M' 0 'P' 0 '0' PER FAVORE* RIPETERE":GOTO 3050 
3080 G0SU8 2000:IP=0:CP=0:NP=FU 
3090 PRINT " RETURN 

presentazione di un gioco). Xj- tyty-Q-QQty-QQQSx 

# £ 

Il contenuto della variabile ^ ^ 

A$ a riga 30-40 può essere Auguri «(2 

cambiato a piacere e deve eJ- 

contenere il messaggio da vi- X}- -$t 

sualizzare. ■ Xj* ☆☆☆☆☆☆☆☆☆ 

: -- 

Listato I caratteri suonano 


I caratteri 
suonano 
sul VIC 20 

Q uesta piccola routine 
proposta da Bruno 


Montresor, di Verona gira 
sul Commodore VIC 20 e 
permette la visualizzazione 
dei caratteri accompagnali 
da un suono. È un effetto in¬ 
solito che può essere utile in 
molti casi (per esempio nella 


1 REM m CARATTERI SONORI ** 

2 REM ** PER VIC 20 ** 

10 PQKE36879,8 :PRINTCHRS<3 > 

20 PRINT"3" 

29 REM ** INIZIO ROUTINE ** 

30 RS*"QUESTA ROUTINE STAMPA SU SCHERMO CARATTERI E SUONI. " 

40 AS*AS+"SI POSSONO AGGIUNGERE MESSAGGI A VOLONTÀ'. BUON LAVORO! *' 
100 FORO* 1TOLEN <.R$> '■ S$=MID$<flf..Q, 1 ) = PRINTS*; 

110 P0KE36875,200 :P0KE36878, 13 
120 FORI «ITO 13 : PRINT" 8 ■” UNENTI 
130 P0KE36875,0 :PQKE36879,0 

140 NEXTQ 

141 REM FINE ROUTINE ** 

READV. 
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